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ABSTRACT 

This  report  Introduces  the  reader  to  radiation  hydrodynamics 
(RH)  and  discusses  its  application  to  fireballs  in  the 
atmosphere.  After  formulating  the  basic  equations  of  RH, 
special  attention  is  given  to  the  radiative  transfer  problem. 
Several  methods  for  solving  the  equations  of  transfer  are 
touched  upon  but  special  emphasis  is  placed  on  the  two 
stream  method  with  a  frequency  averaging  procedure,  which 
is  specifically  designed  for  use  with  finite  zone  sizes .  A 
version  of  the  FIREBALL  code  which  utilizes  this  approach  is 
described .  The  physics  of  fireballs  is  illustrated  with  the 
example  of  a  one  klloton  detonation  at  sea  level  density  and 
without  interference  from  the  ground .  Some  remarks  are  made 
on  scaling  procedures  for  extending  the  results  to  higher  yields 
and  altitudes.  Estimates  are  made  of  the  validity  of  the  models. 
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"Thermal  radiation"  Is  electromagnetic  radiation  emitted  by  matter  In  a 
state  of  thermal  excitation .  The  energy  density  of  such  radiation  in  an  en¬ 
closure  at  constant  temperature  is  given  by  the  well  known  Planck  formula . 

The  importance  of  thermal  radiation  in  physical  problems  increases  as  the 
temperature  is  raised.  At  moderate  temperatures  (say,  thousands  of  degrees 
Kelvin)  its  role  is  primarily  one  of  transmitting  energy;  whereas  at  high 
temperatures  (say ,  millions  of  degrees  Kelvin)  the  energy  density  of  the  radi¬ 
ation  field  Itself  becomes  Important  as  well.  If  thermal  radiation  must  be 
considered  explicitly  in  a  problem,  the  radiative  properties  of  the  matter 
must  be  known.  In  the  simplest  order  of  approximation,  it  can  be  assumed 
that  the  matter  is  in  thermodynamic  equilibrium  "locally"  (a  condition  called 
local  thermodynamic  equilibrium  or  I,TE),  and  all  of  the  necessary  radiative 
properties  can  be  defined,  at  least  in  principle.  Of  course  whenever  thermal 
radiation  must  be  considered,  the  medium  which  contains  it  inevitably  has 
pressure  and  density  gradients  and  the  treatment  requires  the  use  of  hydro¬ 
dynamics.  Hydrodynamics  with  explicit  consideration  of  thermal  radiation  is 
called  "radiation  hydrodynamics". 

In  the  past  twenty  years  or  so,  many  radiation  hydrodynamic  problems 
involving  air  have  been  studied .  In  this  work  a  great  deal  of  effort  has  gone 
into  calculations  of  the  equilibrium  properties  of  air.  Both  thermodynamic 
and  radiative  properties  have  been  calculated.  It  has  been  generally  believed 
that  the  basic  theory  is  well  enough  understood  that  such  calculations  yield 
valid  results,  and  the  limited  experimental  checks  which  are  possible  seem  to 
support  this  hypothesis .  The  advantage  of  having  sets  of  tables  which  are 
entirely  calculated  is  evident:  the  calculated  quantities  are  self-consistent 
on  the  basis  of  some  set  of  assumptions,  and  they  can  later  be  improved  if 
calculatlonal  techniques  are  improved,  or  if  better  assumptions  can  be  made. 
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The  origin  of  this  set  of  books  was  in  the  desire  of  a  number  of  persons 

interested  in  the  radiation  hydrodynamics  of  air  to  have  a  good  source  of 

reliable  information  on  basic  air  properties.  A  series  of  books  dealing  with 

both  theoretical  and  practical  aspects  was  envisaged.  As  the  series  materialized, 

it  was  thought  appropriate  to  devote  the  first  three  volumes  to  the  equilibrium 

properties  of  air.  They  are: 

The  Equilibrium  Thermodynamic  Properties  of  Air, 
by  F.  R.  Gilmore 

The  Radiative  Properties  of  Heated  Air, 
by  B.  H.  Armstrong  and  R.  W.  Nicholls 

Tables  of  Radiative  Properties  of  Air, 
by  Lockheed  Staff 

The  first  volume  contains  a  set  of  tables  along  with  a  detailed  discussion  of  the 
basic  models  and  techniques  used  for  their  computation.  Because  of  the  size  of 
the  related  radiative  tables  and  text,  two  volumes  were  considered  necessary. 

The  first  contains  the  text,  and  the  second  the  tables.  It  is  hoped  that  these 
volumes  will  be  widely  useful,  but  because  of  the  emphasis  on  very  high  tempera¬ 
tures  it  is  clear  that  they  will  be  most  attractive  to  those  concerned  with  nuclear 
woapons  phenomenology,  reentry  vehicles,  etc. 

Our  understanding  of  kinetic  phenomena ,  long  known  to  be  important  and  at 

present  in  a  state  of  rapid  growth,  is  not  as  easy  to  assess  as  are  equilibrium 

properties.  Severe  limitations  had  to  be  placed  on  choice  of  material.  The 

fourth  volume  is  devoted  to  general  aspects  of  this  topic.  It  is; 

Excitation  and  Non  Equilibrium  Phenomena  in  Air, 
by  Landshoff,  et  al. 

It  provides  material  on  the  more  important  processes  involved  in  the  excitation 
of  air,  criteria  for  the  validity  of  LTE  and  special  radiative  effects. 
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A  discussion  of  radiation  hydrodynamics  was  felt  to  be  necessary  and 

the  fifth  volume  which  deals  with  this  topic  is: 

Radiation  Hydrodynamics  of  High  Temperature  Air, 
by  Landshoff,  Hillendahl,  et  al. 

It  revlev/s  the  basic  theory  of  radiation  hydrodynamics  and  discusses  the 
application  to  fireballs  in  the  atmosphere, 

The  choice  of  material  for  these  last  two  volumes  was  made  with  an  eye 
to  the  needs  of  the  principal  users  of  the  other  three  volumes. 

Most  of  the  work  on  which  these  volumes  are  based  was  supported  by  the 
United  States  Government  through  various  agencies  of  the  Defense  Department 
and  the  Atomic  Energy  Commission.  The  actual  preparation  of  the  volumes 
was  largely  supported  by  the  Defense  Atomic  Support  Agency. 

We  are  Indebted  to  many  authors  and  organizations  for  assistance  and  we 
gratefully  acknowledge  their  cooperation .  We  are  particularly  grateful  to  the 
RAND  Corporation  for  permission  to  use  works  of  F.  R.  Gilmore  and  H.  L.  Brode 
and  to  the  IBM  Corporation  for  permission  to  use  some  of  the  work  of 
B.  H.  Armstrong.  Most  of  the  other  authors  are  employed  by  the  Lockheed 
Missiles  and  Space  Company,  in  some  cases  as  consultants. 

Finally,  we  would  like  to  acknowledge  the  key  role  of  Dr.  R,  E.  Meyerott 
of  LMSC  in  all  of  this  effort,  from  the  initial  conception  to  its  realization. 

We  are  particularly  grateful  to  him  for  his  constant  advice  and  encouragement. 

Criticism  and  constructive  suggestions  are  invited  from  all  readers  of 
these  books.  We  understand  that  much  remains  to  be  done  in  this  field,  and 
we  hope  that  the  efforts  represented  by  this  work  will  be  a  stimulus  to  its 
development . 

The  Editors 
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J.  L.  Magee 

H.  Aroeste 

R.  K.  M.  Landshoff 


Preface 


This  volume  reviews  the  basic  theory  of  radiation  hydrodynamics  and 
discusses  the  application  to  fireballs  in  the  atmosphere.  The  first  chapter 
starts  with  a  formulation  of  the  basic  equations  and  goes  on  to  discuss 
schemes  for  translating  these  impossibly  difficult  equations  into  manageable 
computing  procedures .  As  a  companion  to  this  chapter  we  have  added 
Appendix  A  with  a  version  ot  Htllendahl's  FIREBALL  code,  which  runs  without 
Inputs  of  a  classified  nature. 

Chapter  2  deals  with  the  physics  of  fireballs.  The  main  discussion  is 
devoted  to  the  description  of  a  one  kiloton  detonation  at  sea  level .  That 
section  has  nearly  all  been  written  by  H.  L.  Brode  of  the  RAND  Corporation 
but  a  few  passages  have  been  added  by  the  editor.  One  of  these  deals  with 
opaque  precursors  to  shocks  whose  significance  to  the  thermal  output  was 
noted  by  Hlllendahl  since  the  original  version  was  written.  The  section  on 
other  yield  and  altitudes  was  also  written  by  the  editor. 

The  summary  chapter  examines  the  reliability  of  the  results  and  how 
this  is  affected  by  approximations,  incomplete  basic  information  and  other 
deficiencies  in  the  present  state  of  the  art. 

I  would  like  to  thank  Dr.  H.  L.  Brode  for  his  contribution  and  the 
RAND  Corporation  for  permission  to  include  his  work  in  this  volume. 


R.  K.  M.  Landshoff 
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Chapter  1.  RADIATION  HYDRODYNAMICS 
1 . 1  Introduction 

A  nuclear  detonation  deposits  a  large  amount  of  heat  energy  in  the 
air  around  it.  The  heating  phase  is  of  relatively  short  duration  since  the 
energy  arrives  in  the  form  of  X-rays  which  come  either  directly  from  the 
surface  of  the  exploding  bomb  or  from  the  shock  heated  air  in  the  immediate 
vicinity  of  that  surface. 

Following  the  X-ray  deposition  the  air  approaches  local  thermodynamic 
equilibrium  (LIE).  The  method  of  calculating  the  subsequent  explosion 
history  which  is  discussed  in  this  chapter  ignores  this  period  where  the 
air  relaxes  to  LTE.  Before  we  proceed  we  take  a  short  look  at  the  validity 
of  that  assumption. 

* 

The  kinetics  of  relaxation  processes  has  been  discussed  in  Chapter  6,  (4)  . 
The  relaxation  time  depends  on  the  ambient  air  density  and  on  the  final 
temperature  as  shown  in  Fig.  6.1  (4). 

For  a  detonation  at  sea  level  practically  all  the  energy  deposited 
by  X-rays  gets  stuck  in  a  relatively  small  volume  and  raises  the  temperature 
to  very  high  values.  Under  these  conditions  relaxation  times  are  very 
short.  For  a  detonation  at  a  high  altitude  a  sizeable  fraction  of  the  X-ray 
energy  is  deposited  at  large  distances  and  produces  a  lesser  temperature 
rise  because  of  the  Inverse  square  drop  of  the  flux  density.  The  lower 
air  density  and  the  lower  temperature  both  contribute  to  Increase  the 
relaxation  time . 

*  DASA-1917-4,  from  now  on  referred  to  as  (4) . 
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As  an  example,  let  us  consider  a  detonation  with  an  X-ray  yield  of 
1020  ergs  radiating  like  a  blackbody  with  a  temperature  of  10 7  °K  occurring 

_3 

at  an  altitude  somewhat  below  50  km  where  the  air  density  Is  10  times 

less  than  at  sea  level,  A  crude  estimate,  using  the  asymptotic  theory  of 

Section  4.4,  (4)  shows  that  about  10%  of  the  X-ray  energy  is  deposited  at 

distances  more  than  about  80  m  where  It  produces  temperatures  less  than 

12,000°K.  In  Pig  ,  6. 1  (4)  one  reads  off  that  the  relaxation  time  at  that 

temperature  and  a  density  ■  10"^  is  10~®  sec.  Within  that  sphere 

po 

It  takes  less  time  and  on  the  outside  more  time  to  relax  the  air  to  its 
equilibrium  temperature.  Thus  10%  of  the  energy  relaxes  at  a  relatively 
slow  rate  and  the  assumption  that  one  can  Ignore  the  relaxation  period 
is  not  entirely  Justified  In  that  case. 

The  assumption  of  LTE  Is  essential  to  the  classical  formulation  of 
hydrodynamics.  It  means  that  the  temperature  Is  a  well  defined  property 
of  the  fluid  and  that  pressure  and  Internal  energy  are  known  functions  of 
density  and  temperature.  Without  LTE  It  would  be  much  more  difficult  to 
formulate  tne  conservation  theorems  for  momentum  and  energy. 

■fc 

In  the  theory  of  radiative  transfer  (Chapter  2 ,  (2)  ,  which  together 
with  hydrodynamics  accounts  for  the  expansion  of  fireballs,  LTE  also  Is 
an  assumption  of  major  importance.  Without  It  a  quantitative  prediction 
of  the  interaction  between  matter  and  radiation  would  be  a  hopelessly 
complicated  problem. 

Despite  the  very  Important  role  played  by  radiative  transport 
radiation  does  not  as  a  rule  account  for  a  significant  fraction  of  the  energy 
density  and  the  pressure  within  a  fireball.  Even  for  blackbody  radiation. 

It 

DASA  1917-2,  from  now  on  referred  to  as  (2) . 
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which  la  not  present  unless  the  gas  Is  opaque*  this  contribution  is  small 
unless  the  temperature  exceeds  values  like  25  eV.  Temperatures  of  that 
magnitude  are  only  maintained  during  the  very  early  stages  of  fireball 
histories.  In  this  period  the  fireball  cools  down  by  radiative  expansion 
and  this  goes  so  fast  that  there  Is  essentially  no  hydrodynamlcal  motion. 

In  formulating  the  hydrodynamic  equations  one  can  therefore  Ignore  the 
energy  density  and  pressure  of  radiation  because  by  the  time  they  get 
Into  the  act  they  are  Indeed  negligible. 

IXirlng  the  early  period  of  fireball  expansion  (where  radiative  transfer 
of  energy  Is  Important)  the  shape  generally  appears  to  be  almost  spherical* 
at  least  at  low  altitudes  where  the  size  Is  small  compared  to  the  scale 
height  of  the  atmosphere.  Asymmetries  which  are  hidden  by  the  opaque 
outer  layers  may  possibly  occur  duj  to  instabilities  at  the  bomb  air  interface, 
but  we  shall  Ignore  these.  Not  much  Is  known  about  such  phenomena  In 
any  case  and  adding  the  complication  of  asymmetry  would  compromise  the 
already  complicated  problem  of  treating  radiation  flow.  In  line  with  the 
current  state-of-the-art  we  shall  therefore  discuss  only  spherically  symmetrical 
problems . 

1.2  Basic  equations  of  radiation  hydrodynamics 

The  differential  equations  for  calculating  fireball  histories  are  the  con¬ 
servation  relations  of  ordinary  hydrodynamics  but  with  a  rather  complicated  heating 
term  In  the  energy  equation.  They  can  be  written  in  either  Eulerlan  or  Lagranglan 
form.  The  two  forms  are  characterized  by  a  different  choice  of  independent  space 
variables.  In  the  Eulerlan  system  these  are  the  coordinates  in  real  space  and  in  the 
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Lagranglan  on*  they  are  coordinates  which  are  tied  to  the  particles 
of  the  fluid.  In  the  Lagrangian  system  the  coordinates  in  real  space 
which  describe  the  position  of  a  specified  par  icle  are  used  as  dependent 
variables.  In  the  Eulerian  system  this  is  manifestly  impossible  and  the 
motion  is  described  in  terms  of  the  fluid  velocity. 

The  other  dependent  variables  which  characterize  the  thermodynamic 
state  of  the  fluid  are  the  same  in  the  two  systems  and  can  be  chosen  from 
a  set  which  Includes  the  density  p  or  its  reciprocal  the  specific  volume 
V  i  the  pressure  p  ,  the  temperature  T  ,  the  Internal  energy  E  ,  etc. 

It  may  be  convenient  to  keep  several  of  these  variables  in  the  equations 

but  one  must  keep  In  mind  that  they  are  Interrelated  and  that  the  thermodynamic 

state  is  specified  by  any  two  of  them. 

The  Lagranglan  method  is  especially  useful  in  problems  with  a  high 
degree  of  symmetry  where  one  needs  only  one  coordinate  to  specify  the 
position.  Having  restricted  ourselves  to  spherically  symmetrical  problems 
we  shall  therefore  adopt  the  Lagranglan  approach. 

We  define  the  Lagranglan  radius  r  of  a  given  particle  as  its  radius 
at  time  zero,  l.e.  before  it  has  started  to  move.  The  actual  radius  of  the 
particle  at  any  time  is  denoted  by  the  capital  letter  R  .  The  hydrodynamic 
problem  is  to  find  R(r,t)  . 

If  pQ  stands  for  the  initial  density  the  specific  volume  at  any 
Instant  is 


(conservation  of  mass) 


(1.2- 
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Introducing  the  velocity 


✓ 


u 


it 


(1.2-2) 


the  other  conservation  equations  are 


^  ^  (conservation  of  momentum)  (1.2-3) 

yf  +  p  "  VQ  (conservation  of  energy)  (1.2-4) 


where  the  rate  of  heating  per  unit  volume  Q  still  needs  to  be  worked  out. 

As  It  stands  the  energy  equation  has  a  serious  defect  because  It  does 
not  allow  for  the  entropy  raise  produced  by  a  shock.  To  get  around  this 
we  adopt  the  method  of  Von  Neumann  and  Rlchtmyer  (1950)  and  add  a  pseudo- 
viscous  pressure 


q 


(4  2  A)  (»u/ir) 
0 


if 


if 


J?»  0 


(1.2-5) 


to  the  regular  pressure  In  Eqs.  (1.2-3)  and  (1.2-4).  The  constant  l  has 
the  dimensions  of  a  length;  it  will  be  further  specified  when  we  go  to 
finite  difference  equations. 

The  radiative  heating  rate  Q  at  some  point  Is  the  difference  between 
absorbed  and  emitted  power  per  unit  volume 


$ 


-  Bv)  dv  dfi 


(1.2-6) 
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The  emitted  power  presents  no  problem  because  the  blackbody  Intensity 
is  a  known  function  of  temperature.  There  Is  no  angular  dependence 
and  the  Integral  over  frequency  can  be  expressed  In  terms  of  the  Planck 
mean,  Eq.  (2,4-15),  (2).  One  obtains: 

where  a  Is  the  Stefan  Boltsmann  constant. 

The  absorbed  power  Is  much  more  difficult  to  evaluate  because  the 
calculation  of  the  Intensity  Is  a  major  task.  To  carry  this  out  one  should 
in  principle  solve  the  equation  of  transfer  (Eq.  (l  .3-1))  along  every  ray 
passing  through  the  point  In  question  and  for  all  values  of  the  frequency. 

One  of  the  major  difficulties  of  such  a  program  arises  from  the  fact  that 
the  optical  properties  of  air  In  a  large  part  of  the  relevant  temperature  range 
result  mainly  from  transitions  between  molecular  levels .  The  spectrum 
associated  with  the  major  band  systems  consists  of  on  enormous  number  of 
lines  and  the  absorption  coefficient  fluctuates  from  large  values  at  the 
line  centers  to  small  ones  between  the  lines.  Because  of  these  "windows" 
the  radiation  at  some  point  generally  comes  from  points  along  the  ray  which 
are  u*  opreclable  distance  further  back.  This  distance  varies  just  as 
strong  1.  with  frequency  as  uv'  Itself  and  It  Is  therefore  not  proper  to  use 
local  aver’ gas  of  uv'  in  a  frequency  Interval  containing,  say,  a  few  lines. 
Instead,  **  Is  In  principle  necessary  to  integrate  the  transport  equation  at 
a  large  enough  number  of  frequencies  within  every  one  of  these  Intervals. 

This  correct  approach  clearly  demands  an  Impossible  amount  of  computational 
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effort  which  has  to  ba  avoidad.  Thara  ara  two  limiting  situations  where 
this  can  ba  readily  done.  The  one  situation  arises  for  a  transparent  medium 
where  the  optical  depth  uv'L  (L  being  the  siae  of  the  radiating  region) 
is  uniformly  small  compared  to  unity.  In  that  case  1^  is  very  much  smaller 
than  and  one  can  neglect  the  absorption  altogether.  In  that  case  we 
have  0  ■  ~  which  we  know  from  Eq.  (1.2-7), 

In  the  opposite  extreme  of  an  opaque  region  for  which  ^V'L»  1 
one  can  simplify  Eq.  (1.2-6)  directly.  The  heating  rate  can  in  that  case 
be  expressed  in  the  form* 

-  -  v  •  T  (1.2-8) 


The  flux  vector  is  given  by  Eq.  (2  .5-8),  (2)  which  we  rewrite  in  the  form 


?  -  - 


(1.2-9) 


Tables  and  graphs  of  the  Ross  eland  mean  free  path  XR  or  the  related  opacity 
can  be  found  in  (3)**,  p.  12,  pp.  446  to  449  and  pp.  622  to  625. 

The  above  method  of  treating  radiative  transfer  was  originally 
developed  by  Eddington  nearly  half  a  century  ago.  In  its  application  it 
was  however,  limited  to  astrophyslcal  problems  where  it  was  not  coupled 
to  hydrodynamics.  An  early  discussion  of  the  use  of  this  so-called  diffusion 
approximation  to  radiation  hydrodynamics  has  been  given  by  Magee  and 
Hlrschfelder  (1953).  The  first  calculations  carried  out  with  this  method 
to  appear  in  the  open  literature  were  presented  by  Marshak  (1958). 


The  operator  V  is  defined  in  Eulerlan  space.  In  plane  or  spherical 
geometry  it  is  well  known  how  to  express  it  in  Lagranglan  form. 


DASA  1917-3. 
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1*3  Average  absorption  coefficients 

In  the  temperature  range  where  molecular  transitions  occur  and 
where  optical  depths  are  neither  uniformly  small  nor  uniformly  large  one 
has  to  resort  to  approximation  schemes.  It  Is  clearly  necessary  to  apply 
some  kind  of  frequency  averaging  which  will  do  a  fair  amount  of  violence 
to  the  "correct  approach"  of  solving  the  transfer  equation  for  a  few  million 
values  of  the  frequency.  The  basic  mathematical  problem  Is  that  one  wants 
to  average  the  product  uv'  ^  which  enters  in  Eq.  (1.2-6)  as  well  as  In 


Uv'  I**  -  V  (1.3-1) 

by  equating  the  average  of  the  product  and  the  product  of  the  averages,  l.e. 
one  wants  to  replace  Uv' 1^  by  Uv'  ^  and  that  Is  of  course  not  correct. 

The  quality  of  this  approximation  depends  on  the  amount  of  fluctuation  among 
the  values  of  uv'  and  1^  that  are  being  averaged  and  In  a  line  spectrum 
this  fluctuation  may  be  quite  severe.  A  number  of  averaging  schemes  have 
been  proposed  and  are  used  In  various  computing  programs. 

One  scheme  divides  the  spectrum  Into  groups  (10  to  100)  whose  widths 
are  chosen  fairly  narrow  at  the  low  energy  end  and  wider  as  the  energy  goes 
up.  Within  each  Interval  a  Rosseland  type  average  Is  obtained.  Such  group 
averages  have  been  used,  for  example,  In  the  SPUTTER  program  of  AWFL  as 
reported  In  RTD-TDR-63-3128  Vol.  II  and  In  a  code  developed  by  J.  Zlnn 
of  LASL. 

Strictly  speaking,  the  left  hand  side  of  this  equation  should  contain  the 
1 

additional  term  —  rr*-  but  because  of  the  large  value  of  the  light  velocity 
this  time  dependence  is  usually  left  out.  We  note  further  that  light  rays  are 
straight  lines  in  Eulerlan  space  and  in  this  section  we  temporarily  abandon 
the  Lagrangian  system. 


the  transport  equation 

Ik. 

ds 
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A  second  method  of  averaging  uses  the  average  transmission  function 


(Eq.  (2.6-12b),  (2) 


Tr  (u'vs) 


(1.3-2) 


and  the  slababsorotlon  coefficient  related  to  it  by  Eq.  (2.6-19),  (2) 


uv(s)  -  -  J  In  Tr"t|ivrs) 


(1.3-3) 


These  averages  are  defined  for  slabs  of  thickness  s  in  which  the 
temperature  and  density  of  the  air  are  uniform.  The  Intervals  AVj  are 
much  narrower  than  the  groups  of  the  first  mentioned  method.  The  spacing 
between  Intervals  is  10  to  20  times  as  large  as  the  interval  size.  The 
calculated  averages  depend  smoothly  on  the  frequency  so  that  it  seems 
reasonable  to  Interpolate.  The  sla.  average  is  made  to  order  for  use  in 
finite  difference  equations  where  the  fluid  is  divided  into  zones.  It  has 
been  used  in  a  number  of  LM3C  codes  which  will  be  discussed  later  in  this 
chapter. 

A  variation  of  the  group  average  procedure  consists  of  subdividing 
the  frequencies  within  a  group  into  subgroups  which  are  ordered  according 
to  the  magnitude  of  the  absorption  coefficient  rather  than  by  frequency. 

The  spread  between  the  absorption  coefficients  within  each  subgroup  is 
obviously  less  than  between  those  in  the  entire  group  and  subgroup  averages 
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will  therefor*  be  more  meaningful.  To  use  subgroup  averages  we  must  also 
Introduce  Individual  Intensities  for  each  subgroup.  Even  the  use  of  only 
two  subgroups  would  Improve  the  accuracy  considerably.  A  short-cut  for 
the  calculation  of  two  subgroup  absorption  coefficients  consists  of  fitting 
the  average  transmission  function  In  the  form  (Eq.  <2.6-46),  (2). 

_  .  -u'iS  -  |iJ,s 

Tr^'s)  -  f  (e  1  +  e  2)  (1.3-4) 

Tables  of  u'j  and  Uj  are  given  by  Churchill  et  al .  (1963).  We 
don't  know  of  any  code  which  has  utilized  this  type  of  average. 

1.4  Solution  of  the  equation  of  transfer 

Having  obtained  an  average  absorption  coefficient  which  permits  us 

to  replace  the  average  product  by  the  product  of  averages  uv  Iv 

* 

the  transfer  equation  becomes 


!k 

ds 


uv  ~  Tv) 


(1.4-1) 


The  formal  Integration  of  this  equation  along  a  ray  is  straightforward 
and  leads  to 


_ _  ~T  _  C  (t’-t) 

^(s)  «  a  v  ^  (sQ)  +  I  Bv  (s')  e  v  v  dr^  (1.4-2) 

o 


The  absorption  coefficient  Is  still  meant  to  Include  the  correction  factor 
for  Induced  emission  (Eq.  (2.2-lla),  (2)  end  the  prime  Is  left  out  for 
convenience  of  writing  only. 
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The  difficulty  arises  because  one  has  to  determine  the  value  of  this 
Integral  for  all  the  rays  through  a  given  point  to  evaluate  the  rate  of 
absorption  of  radiative  energy  at  that  point.  This  Is  required  for  carrying 
out  the  angular  Integration  in  Eq.  (1.2-6). 

There  are  basically  two  approaches  to  this  problem.  One  Is  the  brute 
force  approach  to  follow  this  program  directly  and  to  evaluate  ^(s)  along 
a  large  number  of  rays.  This  approach  has  been  used  In  the  SPUTTER  program 
with  one  tangential  ray  through  the  center  of  each  2one.  Fig.  1-1  shows 
how  these  rays  are  combined  to  obtain  the  various  values  of  f  at  the 
center  of  zone  4.  Of  the  7  rays  which  are  drawn  3  are  redundant  because 
of  symmetry,  and  one  obtains  3  different  values  of  going  out,  3  going 

In  and  1  grazing  the  zone. 

In  the  other  approach  one  defines  certain  moments,  i.e.  angular 
Integrals  of  which  now  depend  only  on  the  radius  and  not  on  the 

direction.  To  solve  for  these  moments  one  integrates  a  system  of  coupled 
linear  differential  equations  which  are  only  approximately  correct  but  which 
give  exactly  the  right  answer  when  one  considers  the  limit  where  the 
diffusion  approximation  applies.  Such  schemes  have  been  used  widely 
in  astrophysics  and  are  discussed  In  great  detail  by  Chandrasekhar  (1960) 
and  Mustel  (1958).  Some  of  the  more  sophisticated  schemes  use  a  large 
number  of  moments  but  quite  good  results  can  be  obtained  by  restricting 
that  number  to  two  and  using  only  the  outgoing  and  ingoing  flux  which 
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are  defined  as  the  Integrals 


Fv  <-)  =  J  *v  c0s  9  dn  (1.4-4) 

cos  9  >  o 
(cos  0  <  o) 

where  9  Is  the  angle  between  the  ray  and  the  radial  direction. 

We  consider  first  the  case  of  plane  geometry  where  the  medium 
Is  stratified  In  plane  parallel  layers.  This  geometry  has  been  studied 
extensively  by  astrophysicists  and  applied  to  the  radiative  equilibrium 
in  the  outer  regions  of  stars  where  it  is  indeed  unnecessary  io  worry  about 
the  curvature.  By  treating  the  radial  coordinate  R  as  if  it  were  a 
cartesian  coordinate  the  angle  0  of  a  ray  remains  constant  along  the 
ray  path.  The  optical  path  length  between  two  surfaces  Is  therefore 
simply  the  optical  path  length  along  the  normal  divided  by  j  cos  @|  . 

We  shall  express  this  in  terms  of  the  optical  depth  conventionally 
defined  by  astrophysicists  as  the  optical  path  length  measured  radially 
inward  from  the  surface  of  a  star  (or  In  our  case  «  fireball)/  l.e.  the  Integral 

Rs 

t'%|(R)  *  J  Mv(R’)  dR’  (1.4-5) 

R 

To  evaluate  I  (s)  as  given  by  Eq.  (1.4-2)  for  an  outgoing  ray  we  place 
v  -t 

sQ  far  enough  Inside  that  the  factor  e  v  is  essentially  zero;  for  an 
ingoing  ray  we  start  at  the  surface  where  Iv(s0)  *  °  •  The  first  term  of 
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Eq.  (1.4- 2)  can  therefore  be  left  out  In  both  cases.  For  the  exponent 
under  the  Integral  one  can  write 


T  '  -  T. 


tr  •  _  «r  m  —  Y  ' 

V  V  cos  0 


(1.4-6) 


and  for  outgoing  and  ingoing  rays  one  obtains 


V  cos  0 


}  J  TV-"-Tl 

BV(R')  |IV(R*)  e1  C0S  6 


dR*  ;  cos  8  >  o  (1.4-7a) 


v  cos 


s 

J  bv(r*)  av(R') 


cos  0 


dR’  ;  cos  0  <  o  (1.4-7b) 


Entering  these  expressions  into  Eq.  (1.4-4)  one  obtains  the  outgoing  and 


the  Ingoing  flux 


r 

V  *  2"J  Bv(R’)uv(R')  E2(lV-%l)  dR' 


(1.4-8a) 


V  -  2"  j  5v(R')uv(R')  E2(|~v’ -~v|)  dR' 


(1.4-8b) 


where 


E2(t)  =  I  e”  u-  du 


(1.4-9) 
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A  useful  approximation  is  obtained  if  one  replaces  j  cos  e|  in 
Eq.  (1.4-7)  by  an  average  c  •  cos  0  .  Substituting  the  approximate 
form  of  I  +  into  Eq.  (1.4-4)  gives  expressions  similar  to  those  in 
Eqs.  (1.4-8)  but  the  exponential  integral  is  now  replaced  by  a  simple 
exponential  function,  i.e.  we  have  the  approximation 

E2(t)  w  2^  e'T/C  (1.4-10) 

The  average  intensities  calculated  from  the  approximate  fluxes 


Fv±/TT 


satisfy  the  differential  equations 


+  u  ( B  -  I  . ) 
—  v  v+ 


(1.4-11) 


(1.4-12) 


These  average  intensities  are  therefore  identical  with  the  intensities  in 
the  directions  for  which  J  cos  0|  ■  c  .  The  idea  of  the  two  stream  model 
with  intensities  in  a  characteristic  direction  goes  back  to  Schwarzschild 
and  Schuster  who  suggested  to  use  c  =  -^  .A  much  better  choice 
is  c  *  j-  which  gives  the  correct  net  flux 


.  dB 

F  -  F  “  -  ^ 

V+  *v-  3CTV  dR 


(1.4-13) 


in  the  high  opacity  limit. 
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In  spherical  geometry  one  has  no  simple  rigorous  expressions  for 
Iv  like  those  given  In  Eqs.  (1.4-7)  from  which  to  derive  two  stream 
equations.  It  seems,  nevertheless,  reasonable  that  one  should  be  able 
to  use  equations  which  are  essentially  of  the  same  character  but  with 
minor  modifications  to  maintain  conservation  of  energy.  It  is  easy  to 
see  that  this  Is  achieved  by  the  pair  of  equations 


1  JSL 
3  dR 


(1.4-14) 


With  the  definition  given  In  Eq.  (1.4-11)  one  obtains  the  outgoing  and 
Incoming  flux  simply  by  multiplying  the  corresponding  intensities  I  + 
by  a  factor  tt  .  From  the  total  Integrated  net  flux 


7  -  J*  (Fv+  -  Fv J  dv  (1.4-15) 

one  can  finally  obtain  the  heating  rate 

for  use  In  the  energy  equation. 

1.5  Finite  difference  equations 

It  is  obviously  Impossible  to  find  exact  analytical  solutions  to  the 
equations  of  RH  and  one  must  be  satisfied  with  approximate  numerical 
solutions.  To  obtain  these  one  replaces  Infinitesimal  Increments  of  dependent 
as  well  as  Independent  variables  by  finite  differences.  Mathematically  RH 
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can  ba  characterized  as  an  Initial  value  problem  and  the  methods  and  problems 
arising  in  treating  this  by  means  of  finite  difference  equations  have  been 
thoroughly  discussed  by  Richtmyer  (1957).  We  shall  review  some  general 
considerations  and  then  turn  to  questions  which  are  specifically  relevant 
to  our  problem. 

In  a  finite  difference  scheme  continuous  variables  are  replaced  by 
discrete  ones  but  there  are  numerous  possibilities  for  doing  this.  Thus 
one  can  regard  the  discrete  values  of  a  variable  as  representing  either 
the  values  of  the  corresponding  continuous  variable  at  a  set  of  discrete 
meshpolnt  or  the  average  values  between  meshpoints.  There  are  other 
variations  but  they  are  not  needed  In  the  following  discussion.  One  can 
treat  some  variables  in  the  first  and  others  in  the  second  manner.  To 
Indicate  the  actual  choice  one  can  use  integral  subscripts  for  variables 
defined  at  the  meshpoints  and  half  Integral  ones  for  those  defined  In  the 
intervals.  It  Is  convenient  and  natural  to  let  and  represent 

the  radius  and  the  velocity  of  the  particle  at  the  meshpolnt  1  and  this 
leads  almost  automatically  to  defining  vj+i/2  •  pi+i/2  •  Ei+ 1/2  ' 
and  T1+1y2  «s  the  averages  of  specific  volume,  pressure,  internal 
energy  density  and  temperature  In  the  interval  between  the  meshpoints 
1  and  1+1  . 

Another  element  of  choice  enters  In  the  methods  used  for  advancing 
variables  In  time.  Almost  all  variables  are  defined  at  meshpoints  in  time 
which  are  Indicated  by  integral  superscripts.  It  may,  however,  be  useful 
to  define  the  velocity  between  meshpoints  which  can  be  indicated  by  half 
integral  superscripts.  With  this  definition  and  abbreviating  the  right  hand 
side  of  Eq.  (1.2-3)  by  a  (for  acceleration)  that  equation  and  Eq.  (1.2-2) 
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lead  to  the  integration  procedure 


yn+l/2  _  un“ 1/2  +  anfit 


(1.5-1) 


Rn+1  .  Rn  +  yn+1/2  6t 


(1.5-2) 


Having  obtained  Rn+1  one  can  then  obtain  vn+1  by  differencing 
which  follows  from  Eq.  (1.2-1).  So  far  we  have  not  bothered  to  look  at 
alternate  schemes  because  the  procedures  outlined  above  are  very  straight¬ 
forward  and  there  seems  to  be  no  good  reason  for  doing  anything  more 
elaborate.  In  the  purely  hydrodynamic  case,  l.e.  if  Q  ■  0  the  energy 
equation  (1.2-4)  can  aloo  be  integrated  very  simply.  Centering  the 
difference  equation  at  (n+l/2)  leads  to 

E°+1  -  E"  +  |^pn41  +  Pn  +  2qn41/^(vn+1  -  Vn)  ■  0  (1.5-3) 

If  E  is  expressed  as  a  function  of  V  and  p  this  equation  can  be 

solved  for  p  ,  the  one  variable  which  is  still  unknown.  Anticipating 

the  problems  which  arise  when  one  has  radiative  heating  if  is  really  more 

useful  to  express  both  E  and  p  as  functions  of  V  and  T  and  to 

n+ 1 

solve  Eq.  (1.5-3)  for  T  .  Either  way  one  has  to  solve  for  only  one 
unknown  at  a  time  which  causes  no  real  difficulty  even  though  it  may  have 
to  be  done  by  iteration. 

This  situation  changes  drastically  when  the  radiative  heating  rate  C) 

becomes  important.  The  heating  term  to  be  added  on  the  right  hand  side  of 

1  /*) 

Eq.  (1.5-3)  should  be  centered  at  the  level  t  '  like  the  remaining 
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part  of  tha  equation  but  the  temperature  distribution  from  which  It  must 
be  calculated  is  only  known  up  to  the  time  tn  .  There  are  two  major 
avenues  of  attack.  One  is  to  forget  about  centering  Q  and  use  Its 
value  as  calculated  at  tn  .  If  this  Is  done  one  can  still  solve  explicitly 
for  Tn+1  and  this  is  as  the  explicit  method  of  integration. 

In  the  other  attack  one  uses  the  properly  centered  heating  rate 
■^Y<5n+*  ♦  .  This  means  that  the  equation  which  describes  the  heating 

.j,  1 

In  any  one  zone  depends  on  the  values  of  T  in  all  zones  so  that  one 
has  to  solve  a  large  number  of  equations  (one  per  zone)  simultaneously. 

This  implicit  method  involves  a  considerable  amount  of  algebraic  labor. 

If  centering  was  only  required  for  accuracy  it  would  not  be  worthwhile  to 
go  to  all  this  trouble  because  one  could  increase  the  accuracy  more  easily 
by  reducing  fit.  What  is  really  involved  is  the  question  of  mathematical 
stability  which  we  shall  briefly  discuss. 

It  is  piiys,'  ok.  ...  jiat  a  fluid  responds  to  any  pressure  or  temperature 
disturbance  by  a  motion  or  heat  flow  which  counteracts  the  disturbance.  In 
an  integration  by  means  of  M  Terence  equations  which  uses  too  large  time 
intervals  it  may  happen  that  the  disturbance  is  overcompensated  so  that  an 
excess  turns  in  one  step  into  a  deficit,  in  the  next  step  again  into  an  excess 
etc.  If  the  magnitude  of  this  alternating  disturbance  Increases  each  time  any 
small  disturbance  will  eventually  cause  the  solution  to  blow  up.  In  principle 
one  can  cure  such  an  instability  by  taking  fit  small  enough  but  this  could 
seriously  Increase  the  running  time  of  a  problem. 

There  are  two  cases  where  the  stability  condition  has  been  obtained 
analytically.  The  first  arises  when  the  dominant  mode  of  energy  transfer 
is  of  a  hydrodynamic  nature.  The  maximum  fit  in  this  case  is  found  as 


follows.  One  calculates  for  each  zone  the  traversal  time  m 

(Ri-H~R  s (i+l/2)  °*  a  ,i0nal  traveling  with  the  local  sound  speed.  Going 

through  all  Intervals  one  then  finds  the  smallest,  say  Atmin  •  The  time 


Increment  Is  then  limited  by  the  so-called 


“  <  k  4tmln  (1-5-4> 

where  k  Is  a  numerical  factor  near  unity  which  depends  on  the  Integration 
scheme.  In  the  scheme  where  one  uses  the  three  equations  at  thB  beginning 
of  this  section  one  has  k  ■  1  . 

When  radiative  heating  dominates,^  stability  analysis  has  been 

carried  out  for  the  case  where  one  can  use  the  diffusion  approximation.  In 

7 

the  explicit  scheme  the  limit  for  &t  is  proportional  to  (IR6R  which 
decreases  together  with  the  Rosseland  mean  absorption  coefficient  of  the 
air.  If  the  air  is  fairly  transparent  it  Is  limited  to  very  smaii  values 
and  this  makes  an  explicit  calculation  very  costly  In  computer  time.  The 
Implicit  method  does  not  have  tills  trouble  and  is  In  fact  unconditionally 
stable.  On  the  other  hand  It  Is  of  course  also  time  consuming  to  solve  a 
large  number  of  coupled  equations  simultaneously.  One  can  attempt  to 
approach  the  Implicit  solution  by  iteration.  On  the  first  go-around  one 
can  advance  T  by  the  explicit  method.  With  the  advanced  temperature 
distribution  one  can  then  work  out  Qn+*  ,  form  the  average  gn+1/2  « 

+  Qn+  ^  and  reevaluate  T1**  *  .  This  procedure  can  be  repeated 
several  times  and  If  it  converges  It  will  lead  to  a  stable  solution.  The  time 
step  it  is  now  limited  by  the  condition  that  the  solution  should  converge. 

In  contrast  to  the  stability  condition  of  the  explicit  method  this  limit  of  it 
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Is  Inversely  proportional  to  and  independent  of  the  zone  sice.  The 
actual  convergence  criterion  is  almost  equivalent  with  Imposing  a  limit  on 
the  fractional  energy  change  per  time  step  within  every  zone.  That  form 
of  the  condition  is  easy  to  use  and  experience  has  shown  that  a  fraction 
like  one  percent  ensures  the  convergence.  In  a  purely  implicit  procedure 
there  is  no  such  limitation  on  the  magnitude  of  the  time  step*  For  the 
sake  of  accuracy  one  also  impose  a  limit  on  the  fractional  energy 

change  per  time  step  but  it  does  not  ne&dl  to  be  as  small.  This  limit  can 
be  allowed  to  vary  from  zone  to  zone  to  require  greater  accuracy  in  those 
zones  where  the  changes  make  a  significant  contribution  to  the  overall  picture. 

It  is  obvious  that  the  allowed  time  Interval  changes  throughout  the 
calculation.  For  reasons  of  economy  one  should  always  run  fairly  close  to 
the  maximum  without,  however  increasing  fit  too  abruptly.  To  change  fit 
generally  requires  some  Interpolation  (or  extrapolation)  and  all  programs 
nowadays  have  provisions  for  carrying  the  necessary  changes  out  automatically. 
Although  the  preceding  arguments  were  based  on  the  diffusion  approximation 
they  apply  equally  in  the  more  general  case.  It  is  true  that  one  can  not 
readily  obtain  analytic  stability  or  convergence  criteria  but  experience 
with  numerical  calculations  indicates  the  same  pattern. 

Ih  addition  to  the  various  decisions  described  above  one  also  has  to  make 
a  choice  on  zone  sizes.  There  are  two  parts  to  this  decision  relating  to  the 
total  number  of  zones  and  to  their  relative  sizes  at  different  radii.  Fart  one 
Involves  a  compromise  between  conflicting  requirements  for  accuracy  and  economy 
because  it  takes  a  large  amount  of  computer  time  to  use  very  many  zones. 

This  Is  amplified  If  the  choice  of  fiR  also  limits  the  time  step  as  in 
hydrodynamic  calculations  where  fit  ~  fiR  and  even  more  in  the  explicit 
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2 

calculation  of  radiative  transfer  where  fit  —  6R  . 

Part  two  involves  a  judgment  as  to  where  the  really  significant 
changes  are  taking  place  and  it  is  of  course  at  those  regions  where  one 
should  use  the  finest  coning.  In  the  course  of  a  calculation  the  location 
of  significant  changes  moves  so  that  one  has  to  make  provisions  in  the  program 
to  detect  this  and  to  react  to  it  by  reconing.  Furthermore  the  overall  radius 
of  the  fireball  changes  during  an  average  calculation  by  as  much  as  3  orders 
of  magnitude  so  that  reconlng  is  also  necessary  to  keep  the  number  of  zones 
at  a  more  or  less  constant  level. 

The  pseudo  viscous  pressure  q  introduced  in  Eq.  (1.2-5)  is  a  device 
for  calculating  the  entropy  rise  behind  the  shock.  Without  the  damping 
mechanism  provided  by  q  the  changes  induced  behind  the  shock  overshoot 
and  produce  lasting  oscillations  which  physically  do  not  belong  there.  A 
large  value  of  l  will  kill  these  improper  oscillations  most  effectively 
but  at  the  cost  of  making  the  transition  region  very  wide  which  is  also 
incorrect.  Experience  has  shown  that  l  *  2AR  will  stop  the  fake 
oscillations  reasonably  fast  without  spreading  the  shock  transition  over 
more  than  about  4  cones. 

One  can  also  express  q  in  terms  of  rather  than  ^  and 
Rlchtmyer  suggests  to  use  the  formula 


with 


(1.5-6) 
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so  that  tha  transition  region  covers  the  same  number  of  cones  near  the  center 
and  further  away  from  It.  The  numerical  factor  a  should  again  be 
approximately  2. 

In  differencing  either  £q.  (1.2-5)  or  11.5-5)  one  Is  led  to  expressions 
at  half  Integral  times.  To  obtain  the  acceleration  In  Eq.  (i.5-1)  It  should 
be  known  at  tn  but  to  achieve  that,  one  would  have  to  use  an  Implicit 
routine.  In  this  case  that  is  not  worthwhile  since  the  use  of  q  Is  an 
artifice  anyway  and  it  is  customary  to  have  q  lag  half  a  time  step  behind. 
In  the  energy  equation  (1.5-3)  q  is  automatically  In  step. 

The  total  energy  which  is  obtained  by  summing  the  kinetic  and  internal 
energy  within  the  fireball  and  the  energy  carried  away  by  radiation  should 
always  stay  at  a  constant  level.  The  internal  energy  should  in  principle 
contain  a  part  due  to  radiation  but  as  mentioned  in  section  1. 1  this  does 
not  amount  to  much.  A  trivial  point,  but  one  which  must  nevertheless  be 
kept  In  mind  is,  that  one  should  only  count  the  excess  over  the  energy  In 
the  ambient  unheated  air;  otherwise  the  nominal  energy  would  grow  with 
the  volume  of  the  fireball. 

It  is  important  to  keep  track  of  any  violations  of  energy  conservation 
which  may  creep  in  through  the  use  of  finite  difference  schemes.  Any 
program  should  therefore  contains  a  routine  for  checking  energy  conservation. 

The  point  at  which  R.H.  goes  beyond  standard  methods  comes  with 
the  calculation  of  radiative  transfer.  The  various  methods  require  the 
evaluation  of  certain  space  Integrals  before  one  can  calculate  the  energy 
deposition  in  a  specified  zone.  Because  of  the  very  strong  temperature 
dependence  of  the  Integrands  these  Integrals  depend  critically  on  the 
radial  dependence  of  the  temperature.  The  common  method  of  approximating 
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this  dependence  by  assuming  constant  values  of  the  temperature  within  the 
zones  may  lead  to  serious  errors.  An  attempt  to  correct  these  has  been 
made  by  Hlllendahl  (1964). 

We  shall  present  the  analysis  for  the  plane  case  which  is  formally 
easier.  The  transition  to  spherical  geometry  can  be  made  later  and 
requires  only  minor  changes  which  are  rather  obvlouB.  The  starting  point 
is  Eq.  (1.4-12)  but  before  one  has  carried  out  any  frequency  averaging. 
Thus  the  line  character  is  still  preserved  and  ani  I^+  are 

rapidly  changing  functions  of  frequency.  Integrating  Eq.  (1.4-12) 
across  the  zones  which  are  separated  by  the  Interface  at  one  finds 
for  the  outgoing  and  Ingoing  stream  (represented  by  the  upper  and  lower 
sign 
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and  obtain 


Integrating  over  frequency  we  obtain  formally 


and  where  is  the  integrated  Intensity 


SL  t4 

TT 


(1.5-10) 

(1.5-11) 

(1.5-12) 

(1.5-13) 

(1.5-14) 

(1.5-15) 

(1.5-16) 
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at  the  point  .  No  limits  of  Integration  have  so  far  been  specified 
and  one  is  free  to  divide  the  spectrum  into  any  set  of  frequency  intervals . 
As  a  first  approximation  Klllendahl  used  the  entire  spectrum  without 
subdividing  it. 

Before  Eq.  ( 1.5-11)  can  become  operational  one  has  to  define 
the  average  optical  depth  7  which  enters  in  the  derivative  ^  and 
one  has  to  face  the  difficulty  of  an  unknown  ratio  I^/l  entering  into 
the  definition  of  Z  . 

The  procedure  devised  by  Hillendahl  for  obtaining  an  average  for 
7  is  specifically  intended  for  use  with  finite  zone  sizes.  The 
prescription  is  designed  to  keep  the  emissivity  of  a  zone  of  constant 
density  and  temperature  unchanged  if  one  replaces  the  frequency 
dependent  optical  depth  A~v  “  UVAR  by  its  average  Ax’  *  Thus, 
i.e.,  by  making  this  substitution  in  the  exponent  of  Eq.  (1.5-14)  one 
Is  led  to 


A 


dv  “  e 


We  note  that  the  factor  in  Eq.  (1.5-14)  ;  ■  taken  at  the  edge  of 

Bi 

the  zone.  Since  this  ratio  varies  only  very  slowly  with  T  we  will 
take  it  at  the  center  of  the  zone  instead,  so  that  there  is  only  one 
emlssivity  A  per  zone  and  not  different  ones  for  the  ingoing  and  out¬ 
going  ray.  In  the  above  integral  for  A  one  car*  clearly  replace  the 
rapidly  varying  exponential  by  a  smooth  one  in  which  one  uses  the  slab 
absorption  coefficient  jl  as  defined  in  Eqs.  (1.3-2)  and  (1.3-3).  In 


(1.5-17) 
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the  new  expression 


A 


(1.5-18) 


the  zone  with  AR  enters  not  only  as  a  factor  In  the  exponent  but  also 
as  one  of  the  variables  In  y^  -  uv(p,T,AR)  .  Various  methods  for 
calculating  y^  ,  which  apply  when  the  dominant  absorption  Is  molecular, 
atomic  or  free-free,  have  been  described  In  (2).  The  results  are  tabu¬ 
lated  in  and  have  been  used  in  the  above  integral  to  obtain  A(p,T,AR)  . 

It  Is  convenient  to  erqpress  this  in  terms  of  a  mean  absorption  coefficient 
djj  (p,T,AR)  "  -  g’tn  A/AR  and  to  write: 


-f  (|IH  AR) 
A  -  e  1  H 


(1.  5-19) 


Depending  on  AR  as  well  as  on  p  and  T,  yH  differs  from  the 
Ross  eland  mean  (y^)  and  the  Planck  mean  (Ip)  which  depend  only  on 
p  and  T  . 

For  the  function  W  ,  which  should  in  principle  be  calculated  from 
Eq.  (1.5-15)  we  use  an  approximation  and  set 


(1.5-20) 


which  looks  reasonable  and  leads  to  the  correct  energy  deposition  when 
Hjj  ^  *s  ^rge  enough  that  one  can  use  the  diffusion  approximation. 

As  in  the  case  of  A  we  are  using  only  one  W  per  zone. 
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The  coefficients  j  as  defined  by  Eq.  (1.5-13)  depend  on 
the  unknown  spectral  distribution  Iv+  1 ^  ^  at  the  point  1  . 

Since  the  difference  equations  (1.5-11)  apply  only  to  the  integrated 
Intensities  j  their  solution  does  not  give  us  any  direct  Information 
about  the  spectral  distribution  and  we  must  rely  on  educated  guesses 
for  the  latter.  The  basic  clue  which  we  follow  Is  that  the  radiation 
at  some  point  1  comes  by  and  large  from  a  zone  (the  radiating  zone) 
which  lies  an  optical  depth  unity  behind  that  point  In  the  direction 
where  the  stream  comes  from.  The  distribution  has  therefore  the  distri¬ 
bution  of  a  blackbody  source  at  the  temperature  Tp  of  the  radiating 
zone  but  modified  by  selective  absorption  In  the  intermediate  zones. 

When  we  apply  this  model  we  distinguish  3  typical  situations 
for  the  ingoing  and  3  for  the  outgoing  stream.  This  comes  from  the 
peculiar  temperature  dependence  of  mean  absorption  coefficients.  For 
all  these  means ,  whether  we  talk  of  jig  ,  or  jjH  ,  one  can 
distinguish  a  central  temperature  range  where  jl  is  large  and  the 
low  and  high  T  ranges  where  It  drops  to  very  low  values . 

The  temperature  profile  of  a  fireball  is  typically  a  monotonically 
decreasing  curve.  While  the  central  temperature  is  still  large  this 
profile  looks  like  the  sketch  In  Fig.  1-2  with  a  central  section  where 
ti  Is  small  so  that  radiative  transfer  maintains  a  nearly  constant 
temperature.  Beyond  that  plateau  comes  a  more  opaque  region  with  a 
relatively  large  temperature  gradient  and  at  the  point  where  the 
temperature  has  dropped  to  where  the  air  Is  again  transparent  the  profile 
becomes  again  more  level.  Superimposed  on  this  one  finds  usually 


27 


some  structure  due  to  shocks  or  other  disturbances  but  this  does  not 
alter  the  main  conclusion  that  there  are  3  distinct  regions. 

In  the  opaque  intermediate  region  the  spectral  distribution  I^/I 
can  be  Identified  with  that  of  a  blackbody  at  the  local  temperature  so 
that  one  is  led  to  5^  ■  Z_  ■  A  .  In  the  interior  region  the  radiation 
comes  mainly  from  its  boundary  where  it  is  in  contact  with  the  opaque 
region.  Since  the  temperature  profile  is  quite  level  one  does  not  commit 
a  significant  error  by  identifying  I^/l  again  with  the  local  B^/B 
which  varies  much  less  with  T  than  either  B^  or  B  itself.  As 
in  the  previous  case  we  therefore  use  the  approximation  Z+  *  Z_  ■  A  . 

Only  in  the  outer  section  do  we  have  to  make  a  more  careful  choice 
of  I  /I  and  only  for  the  outgoing  stream.  The  ingoing  stream  carries 
essentially  no  energy  and  it  doesn't  matter  much  what  one  does.  The 
simplest  choice  is  again  to  set  Z_  *  A  . 

The  point  where  it  really  counts  that  our  model  should  adequately 
represent  the  true  physical  nature  of  radiative  transport  comes  when  we 
consider  the  outgoing  stream  as  it  emerges  from  the  opaque  region. 

The  absorption  to  which  this  stream  is  subjected  is  largely  due  to 
molecules.  In  calculating  which  parts  of  the  spectrum  are  and  which 
are  not  transmitted  one  is  greatly  helped  by  the  character  of  the  energy 
dependence  of  ^  .  Fig.  1-3,  which  is  a  typical  example  taken  from 
SACHA  type  calculations  shows  that  is  a  very  rapidly  rising 

function  of  frequency.  From  this  graph  we  find  by  inspection  that  a 
zone  of  about  10  m  thickness  would  transmit  practically  no  photons 
above  5  eV  and  practically  all  photons  below  3.B  eV.  Approximately 
one  can  assume  that  there  is  a  critical  photon  energy  hvc  in  the 
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vicinity  of  4.4  eV  at  which  the  transmitted  flux  Is  sharply  cut  off.  For 

B 

a  stream  which  starts  out  as  a  blackbody  spectrum  -j-  ■  (TR) 
one  finds  that  the  transmitted  fraction  of  the  energy  Is  a  known  Integral 


L  (Tr,  hvc) 


/  bv  (II 


,)  dv 


(1.5-21) 


The  procedure  for  determining  Z+  for  any  zone  1  -  1/2  outside 
the  opaque  region  starts  out  with  finding  the  radiating  zone  which  belongs 
to  It  and  whose  temperature  has  been  designated  as  TR  .  We  assume 
that  the  model  spectrum  1^  starts  out  there  as  a  blackbody  spectrum 
(Tr)  .  Any  of  the  zones  through  which  It  passes  will  not  transmit  any 
radiation  above  Its  cut-off  energy  hv„  and  the  model  spectrum  which 
finally  enters  into  zone  1  -  1/2  remains  ^  (TR)  up  to  the 

lowest  cut-off  energy  hv^^  encountered  by  the  stream  but  Is  reduced 
to  Iv  *  0  above  hvmln  .  If  zone  1  -  1/2  has  a  lower  cut-off 
hvc  j  _  y/i  we  set  therefore 


A 

-,i 


\lVi--l/2; 

L  *TR  hvmln* 


(1.5-22) 


If  the  cut-off  energy  Is  equal  to  or  larger  than  hvmin  the  model 
spectrum  would  lead  to  2^  ^  ■  1  which  can't  be  right  and  indicates 
that  the  sharp  cut-off  approximation  Is  too  crude  to  fit  this  case.  An 
upper  limit  for  Z  can  be  obtained  by  setting  it  equal  to  the  local  A 
since  the  bulk  of  the  true  spectral  distribution  lies  at  somewhat  higher 
energies  than  the  local  blackbody  spectrum.  Thus  the  true  1^  will 
suffer  somewhat  more  absorption  than  Bv  which  leads  to  the  Inequality 
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Z  <  A  . 

The  modifications  which  are  necessitated  by  going  to  spherical 
symmetry  can  be  written  down  without  difficulty.  One  only  has  to  note 
that  Eq.  (1.4-14)  differs  from  Eq.  (1.4-12)  by  the  factor  R^  which 
multiplies  both  I  and  B  .  Clearly  this  factor  must  enter  when  one 
modifies  the  corresponding  set  of  Eqs.  (1.5-11).  As  we  write  down  the 
modified  set  we  incorporate  the  result  that  the  coefficients  A  and  W 
depend  only  on  the  zone  and  not  on  the  direction  of  the  stream,  and  obtain: 

Rf  *+,i  “  R?+  i  ^t,i  *£,i+ 1  +  Ri  Bi  i/ij-z  wi+  1/2  * 

The  A  and  W  are  as  before  given  by  Eqs.  (1.5-19)  and  (1.5-20)  and 
^  A  is  nearly  always  equal  to  Aj^  jy2  ®xcept  ir*  »  few  zones  Just 
outside  the  opaque  region  where  one  should  use  Eq.  (1.5-22). 

In  the  two  stream  model  the  fluxes  differ  from  the  intensities  by  a 
factor  tt  as  shown  in  Eq.  (1.4-11).  The  relation  carries  over  when 
one  performs  the  frequency  radiation  so  that 


( 


Having  determined  the  intensities  by  solving  the  set  of  Eqs.  (1.5-23)  one 
is  therefore  ready  to  evaluate  -  V  •  ?  which  according  to  Eq.  (1 .2-8) 
gives  us  the  radiative  heating  rate.  Thus  one  obtains: 


M+  1/2 


R  3  -  R3 
Ri+  1  Ri 


(F+,i-p-,i>  -Ri 


i+  1  *F+,  i+  1  ‘  F-,  i+  1*1 


(l 


.5-23) 


.5-24) 


.5-25) 
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which  Is  the  final  equation  of  the  two  stream  method.  Before  leaving  it 
let  us  take  a  somewhat  closer  look  how  this  equation  handles  a  cone  In 
the  opaque  region.  In  any  region  where  one  replaces  Z+  and  Z_  by 
A  one  finds  that  Eq.  (1.5-23)  reduces  tot 

f  M  r  +  -2. 

>,i  1-3 


W14  1/2 


(1.5-26) 


from  which  one  obtains  In  turn 

'V.l  -  P-,l  -  ^  (#),  (Wl-l/2  4  Wl+  l/2)  <* 

In  an  opaque  region  this  simplifies  still  further  because  the  factor  e 
in  Eq.  (1.5-20)  becomes  negligible  compared  to  unity.  One  can  therefore 
set  W  -  1  and  obtain! 


(1.5-28) 


and  since  B*  —  T*  this  Is  clearly  equivalent  to  Eq.  (1.2-9)  l.e.,  to 
the  basic  equation  of  the  diffusion  approximation.  This  Is  of  course  no 
surprise  because  we  picked  cos  0  ■  ^  precisely  In  order  to  achieve  this 
equivalence. 

In  an  opaque  region ,  the  diffusion  approximations  contains  all 
the  physics  needed  for  the  calculation  of  radiative  energy  transfer  and 
It  Is  superior  to  other  methods  as  far  as  speed  and  possibly  accuracy  of 
calculation  are  concerned.  Hlllendahl's  formulation  of  the  two  stream 
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method  automatic*'. ly  leads  to  this  procedure.  More  elaborate  methods 

such  as  the  multiple  ray  technique  do  not,  but  it  is  of  course  possible 

to  switch  to  a  diffusion  theory  calculation  when  one  considers  an  opaque 

region.  This  is  indeed  done  in  the  SPUTTER  program. 

In  the  form  outlined  in  this  section  the  two  stream  method  is  not 

applicable  at  high  altitudes  where  the  ambient  air  has  a  density  less 

than  about  p/pQ  ■  10~*  .  At  such  densities  the  air  becomes  transparent 

in  the  spectral  region  where  has  its  maximum  and  the  fireball  has 

no  opaque  region.  There  is  still  a  significant  amount  of  radiation  at 

frequencies  above  and  below  this  window  but  one  has  to  devise  new 

methods  for  dealing  with  this  problem.  At  these  altitudes  the  mathematical 

difficulties  are  further  aggravated  by  the  non-spherical  energy  deposition 

which  takes  place  when  the  mean  free  path  of  x-rays  get  large  compared  to 

—6 

the  atmospheric  scale  height.  Eventually,  say  at  about  p/p0«*  3  x  10 

the  air  becomes  transparent  in  all  parts  of  the  spectrum  and  thermal 

radiation  is  no  longer  a  significant  factor. 
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FIG.  1-1  RAYS  CONVERGING  UPON  ZONE  4  WHICH  ARE  USED  TO 

COMPUTE  I  AS  FUNCTION  OF  ANGLE 

v 


FIG.  1-2  SKETCH  OF  TEMPERATURE  PROFILE  IN  A  FIREBALL 
INDICATING  OPTICAL  PROPERTY  OF  THE  AIR 
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Chapter  2  .  THE  PHYSICS  OF  FIREBALLS 


2.1  Introduction 

A  nuclear  explosion  in  the  atmosphere  creates  a  fireball  whose 
development  depends  in  large  measure  on  the  physics  of  hot  air.  All 
of  the  previously  discussed  properties  of  hot  air  and  ail  of  the  mechanisms 
for  energy  transport  developed  in  previous  chapters  are  a  part  of  nuclear 
fireball  physics.  However,  these  energy  transforming  and  transporting 
relations  and  the  detailed  knowledge  of  the  properties  of  air  find 
considerably  wider  application.  They  have  or  can  contribute  to  the  study 
of  stellar  dynamics,  the  nature  of  stellar  atmospheres,  the  radiation 
from  various  astrophyslcal  sources,  and  they  can  aid  in  the  study  of 
hypervelocity  flight,  upper  atmosphere  physics,  aurora,  and  other  atomic 
and  molecular  physics  problems  which  involve  high  temperatures. 

It  is  certainly  the  case  that  the  Information  presented  In  these 
previous  chapters  makes  the  conditions  created  in  a  nuclear  explosion 
more  understandable.  Some  knowledge  of  air  heating  mechanisms,  of 
air  excitation,  of  radiation  transport,  and  of  hydrodynamics,  of  absorption 
properties,  and  of  the  thermodynamics  of  air  is  necessary  before  a  full 
description  of  a  nuclear  explosion  can  become  more  than  heuristic. 

Much  of  the  present  knowledge  about  fireballs  has  been  gleaned 
from  test  observations,  but  by  far  the  greatest  detail  has  come  from 
numerical  computer  calculations,  as  have  the  quantitative  estimates  of 
fireball  interior  dynamics  which  appear  in  this  chapter.  Calculations  of 
widely  varying  detail  and  sophistication  now  abound,  and  it  Is  not  the 
intention  in  this  chapter  to  review  such  results  or  analyze  computing 
methods.  Most  current  calculations  rely  for  their  measure  of  success  on 
the  xier'  to  which  the  physical  concepts  and  properties  covered  In  the 
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preceding  chapters  have  been  taken  into  account  in  a  mathematical  model. 
The  principal  objective  of  this  chapter  is  to  outline  the  physical  features 
of  nuclear  fireballs  and  their  thermal  radiations,  stressing  where  possible 
those  factors  which  are  most  general  and  which  provide  the  best  under¬ 
standing  on  which  to  base  predictions  and  extrapolations.  The  approach 
adopted  is  to  begin  by  considering  a  small  yield  explosion  (1  kiloton) 
at  sea  level  and  to  describe  the  sequence  of  events  which  occur  un¬ 
encumbered  with  interactions  from  the  earth's  surface  or  inhomogeneous 
environments.  This  development  will  then  be  extended  to  higher  yields 
and  altitudes.  There  will  be  no  attempt  at  completeness  and  no  great 
concern  for  quantitative  rigor,  but  it  is  intended  to  display  as  much  as 

possible  the  current  understanding  of  the  physics  of  nuclear  fireballs. 

,  * 

2  .2  One  kiloton  at  sea  level 

A  one  kiloton  explosion  in  a  sea  level  atmosphere  provides  an 

appropriate  example  for  an  initial  examination  of  the  sequence  of  events 

that  constitute  a  fireball  history.  The  now  familiar  usage  of  kilotonage 

and  megatonage  refers  to  the  total  energy  release  in  a  nuclear  explosion 

with  the  usual  metric  prefixes  for  a  thousand  or  a  million  and  with  the 

g 

understanding  that  a  ten  of  high  explosive  -  TNT  -  releases  10  calories 
of  effective  energy,  i.e.,  one  gram  of  TNT  is  taken  as  equivalent  to 
one  kilocalorie  or  4.185  x  1010  ergs. 

For  any  nuclear  explosion  the  sequence  of  events  is  remarkably 
complex.  In  following  its  development  for  this  one  kiloton  sea  level 
explosion,  the  reader  may  appreciate  the,t  the  present  understanding. 
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although  not  complete,  has  become  quite  detailed  and  much  of  it  has 
grown  directly  from  the  material  reviewed  in  this  series  of  volumes . 

The  nuclear  energy  _s  released  in  an  extremely  short  time  -  a 
small  fraction  of  a  microsecond  -  and  always  in  a  small  mass  and 
volume.  It  is  the  properties  of  this  small  mass,  constituting  the 
weapon  itself  and  its  carrier  that  determine  the  early  source  of  energy 
for  the  fireball,  and  some  of  these  properties  may  Influence  the 
character  of  the  later  thermal  radiation.  Everything  starts  in  this 
nuclear  source  and  all  of  the  initial  radiations  -  gamma  rays,  neutrons, 
and  x-rays  -  are  generated  by  it.  However,  the  air  or  other  immediately 
surrounding  material  absorbs  almost  everything  emitted  within  a  few 
hundred  meters  and  the  nature  of  the  observable  fireball  is  largely 
determined  oy  the  properties  of  this  surrounding  air.  For  our  example 
of  one  fciloton  in  a  sea  level  atmosphere,  the  air  within  a  few  feet  of 
the  weapon  stops  nearly  all  of  the  x-rays,  and  the  prompt  gamma  rays  and 
the  neutrons  have  removal  mean  free  paths  of  about  400  and  240  meters, 
respectively.  These  rapid  absorptions  make  knowledge  of  specific 
details  of  the  nuclear  device  largely  unnecessary  in  describing  the 
fireball  phenomena.  Consequently,  we  shall  be  able  to  proceed  without 
reference  to  classified  aspects  of  nuclear  weapons  and  yet  without 
significantly  truncating  our  description  of  the  fireball  and  its  thermal 
radiations . 

The  fraction  of  the  energy  which  may  be  radiated  out  of  the  weapon 
as  x-rays  before  it  begins  to  blow  apart  under  hydrodynamic  action 
depends  largely  on  its  yield-to-mass  ratio  and  to  some  extent  on  other 
construction  details.  This  fraction  may  range  from  almost  nothing  at 
all  (or  a  very  small  percent)  to  a  significantly  more  than  80%  of  the  total 
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energy  generated  (Glasstone,  1962;  Brode,  1964  b) . 

Before  the  air  has  had  a  chance  to  re-radiate  any  of  the  energy 

deposited  by  the  x-rays,  the  bulk  of  this  energy  is  concentrated  in  a 

relatively  small  sphere  and  at  a  temperature  which  is  typically  of  the 

order  of  several  million  degrees  K.  There  is,  however,  a  small  fraction 

of  x-rays,  from  the  high  frequency  end  of  the  spectral  distribution  function, 

which  penetrates  to  a  distance  of  perhaps  a  few  meters,  and  heats  this 

shell  to  temperatuies  in  the  10,000°K  range.  Energywise  this  heating  is 

insignificant  but  it  makes  a  contribution  to  the  fireball  phenomenology 

which  is  of  some  interest.  By  consulting  the  table  of  mean  free  paths  on 
♦ 

p.  447  of  (3)  we  discover  that  this  shell  is  opaque.  As  long  as  it  exists 
such  an  opaque  shell  hides  the  much  hotter  sphere  on  its  inside  and  all 
that  can  be  observed  is  the  radiation  from  the  shell  itself,  which  is 
comparatively  dim. 

This  phase  is  always  very  short-lived  and  terminates  when  the 
radiation  from  the  center  floods  into  the  shell  and  heats  it  up .  During  the 
next  phase  the  fireball  can  be  characterized  rather  well  as  an  extremely 
high  temperature  sphere  of  air  surrounding  the  nuclear  source  and  showing 
a  fairly  sharp  temperature  drop  at  its  edge.  The  interior  of  this  high 
temperature  sphere  rr.  y  be  at  a  fairly  uniform  temperature,  and  the  whole 
may  contain  quite  a  *arge  fraction  of  the  nuclear  explosion  energy  in  the 
form  of  heat.  Some  small  fraction  always  remains  in  the  dense  bomb 
vapors,  but  most  of  the  early  phases  of  the  fireball  development  are  quite 
independent  of  the  details  of  the  weapon  design.  The  subsequent  explosion 
and  radiation  bihavior  can  be  derived  almost  entirely  from  the  properties  of 
this  hot  air.  Such  a  model  will  be  less  true  in  high  altitude  or  space 

DASA-191 7-3 . 
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environments  where  the  immediate  external  surroundings  fail  to  contain  as 
thoroughly  the  explosion  energy  because  they  iack  sufficient  opacity  or 
optical  thickness. 

Throughout  the  explosion  development,  radiant  energy  is  emitted  by 
the  fireball.  That  fraction  which  is  transmitted  by  the  cold  exterior  atmosphere 
is  called  thermal  radiation.  The  rate  of  energy  emission,  or  radiated  power. 


has  shape  as  shown  in  Fig.  2-1 .  If  the  opaque  fringe  layer  has  been  penetrated 
early  enough  and  if  the  instruments  used  for  measuring  the  thermal  power 
have  sufficient  time  resolutions,  the  signal  will  include  the  early  peak  which 
is  shown  as  a  dotted  line.  Otherwise,  one  sees  the  two-peak  curve  which 
is  drawn  as  a  full  line.  The  explanation  of  this  curve  is  an  important 
objective  of  any  theory. 

Although  it  is  a  rather  simple  exercise,  it  is  instructive  to  note  the 
rather  small  size  of  air  volumes  required  to  contain  the  large  amounts  of 
energy  at  the  high  temperatures  created  by  the  absorption  of  the  initial 
flux  of  x-rays .  The  following  table  indicates  the  radii  of  spheres  for  a 
few  examples  of  energy  content  and  temperatures.  These  temperatures, 
of  course,  are  too  high  for  the  air  to  remain  that  hot  for  very  long,  but  in 
the  immediate  first  fractions  of  a  microsecond  these  radii  are  representative 

of  the  sizes  and  temperatures  of  the  earliest  (x-ray)  fireballs. 

Size  of  Spheres  of  Sea  Level  Mr  Necessary 
to  Contain  1  KT,  1  MT  or  100  MT  of  Energy  at 
Various  Uniform  Temperatures 


Temperature 
Millions  of  c 

7  1/2 


1  KT 
3/4  m 


1  MT 
7.S  m 


6 


10 


46 


5 


1  1/4  12 


57 


4 


1.6 


16 


74 


3 


2.1 


21 


100 


In  a  very  few  microseconds,  these  fireballs  would  have  grown  much  larger 
and  much  less  hot  by  the  continued  diffusion  of  radiation  into  the  external 
cold  air. 

For  most  considerations  these  earliest  phases  of  x-ray  deposition  and 
re-radlatlon  remain  both  obscure  and  of  little  probable  importance.  When 
the  flux  of  source  radiations  has  been  sufficiently  Intense  as  to  completely 
strip  the  electrons  from  the  air  ions,  then  that  volume  of  plasma  can  offer 
only  Compton  scattering  as  further  resistance  to  the  x-ray  flux  or  as  opacity 
to  its  own  re-radiation.  The  most  appropriate  physical  model  for  the  con¬ 
tinued  expansion  of  this  low  emlsslvlty,  high  energy  density  region  Is 
neither  by  hydrodynamics  (which  requires  relatively  long  times  to  accelerate 
masses  of  gas)  nor  by  radiation  diffusion  which  presumes  many  interactions 
over  any  appreciable  temperature  gradient.  The  growth  of  such  a  heated 
volume  is  a  radiative  process  which  can  be  characterized  roughly  by  its 
emlsslvlty,  temperature,  and  volume  together  with  the  heat  capacity  of 
the  external  cold  air.  The  single  further  physical  characteristic  necessary 
to  include  in  a  growth  rate  prediction  is  the  fact  that  the  surrounding  air 
is  essentially  opaque  to  the  radiations  from  this  hot  air.  Detailed 
knowledge  of  the  opacity'  between  this  blackness  at  cold  temperatures  and 
its  transparent  nature  at  sufficiently  high  temperature  is  at  this  point 
unnecessary.  Thus,  the  rate  of  energy  lost,  expressed  as  a  grey-body  loss 
rate,  is  the  rate  at  which  energy  is  deposited  in  the  cold  air  at  the  surface 
of  the  high  temperature  sphere,  viz. , 

-  4TTR2c?4e  ,  (2.2-1) 
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In  which  e  Is  the  emlsslvlty,  T  the  temperature  of  the  hot  Isothermal 
sphere,  R  Its  radius,  and  dW/dt  the  rate  of  energy  change.  When 
an  appropriate  specific  heat  Is  Introduced,  a  differential  prescription  for 
the  volume  growth  and  temperature  drop  results. 


Following  this  approximation,  one  can  express  the  rate  of  growth, 
dR/dt,  In  the  same  terms  as 


.  33 14 
dt  Ep 

In  which  E  represents  the  Internal  energy  per  unit  mass,  and  p  the 
density  of  the  air  just  behind  the  front,  while  T  Is  the  inner  temperature. 
The  usefulness  of  this  approximation  In  estimating  the  rate  of  growth  of  a 
partially  transparent  fireball  is  largely  dependent  on  the  accuracy  with 
which  average  or  "effective"  Interior  temperatures,  specific  energies, 
and  emlssivities  can  be  chosen.  During  the  most  rapid  expansion,  the 
Interior  Is  likely  to  be  considerably  non-lsothermal,  i.e.,  the  Interior 
may  be  more  than  twice  as  hot  as  the  region  Just  behind  the  front.  The 
dependence  on  the  fourth  power  of  the  temperature  makes  this  rate  quite 
sensitive  to  such  differences.  The  most  uncertain  quantity  is  likely  to 
be  the  effective  emlsslvlty,  since  It  represents  some  average  over  the 
emitting  region,  and  may  also  disguise  some  geometric  dependence  -  not 
all  the  radiation  being  emitted  radially.  Appropriate  choices  of  effective 
emlsslvlty  and  temperature  may  make  this  simple  formula  appropriate 
for  predicting  the  growth  rate  during  the  subsequent  radiation  diffusion 
phase* 
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The  temperature  profiles  illustrated  in  Fig*  2-2  are  typical  of  this 
early  radiative  growth  for  a  one  klloton  sea  level  burst.  The  curves 
represent  the  air  temperatures  as  a  function  of  radius  for  six  selected 
instants  in  time.  The  dashed  curve  Indicates  the  shock  temperatures. 

It  is  the  lowest  temperature  within  the  fireball  at  each  of  these  times. 

After  about  IS  microseconds,  the  radiation  diffusion  growth  becomes  so 
slow  that  a  shock  wave  begins  to  form,  to  compress  the  newly  engulfed 
air  and  heat  it  to  a  temperature  substantially  below  that  of  the  radlatlvely 
heated  inner  sphere.  With  either  the  early  radiative  expansion  or  the 
subsequent  adiabatic  expansion  behind  the  forming  shock  front,  the  Inner 
temperatures  drop  with  time  in  an  approximately  exponential  fashion* 

During  this  early  growth,  the  power  radiated  or  the  thermal  radiation  to 
points  outside  the  fireball  is  not  a  significant  fraction  of  the  energy  n 
contains.  The  time  is  short,  the  size  is  small,  its  opacities  are  high,  and  the 
fireball  exterior  so  well  shields  the  hotter  core  that  the  radiation  out  is 
less  than  half  a  per  cent  of  the  available  energy. 

Of  course,  the  radiative  properties  are  influenced  by  the  air  density 
as  well  as  by  the  temperature,  and  the  gradual  formation  of  the  shock 
causes  an  appreciable  Increase  in  the  air  density  at  the  fireball  surface 
(as  much  as  tenfold  increase  at  sea  level).  In  the  process,  the  outer 
surface  of  the  fireball  passes  from  a  rather  diffuse  radiation-driven  front 
to  a  sharp,  dense  shock  front.  Fig.  2-3  shows  some  typical  early  density 
profiles.  In  which  the  shock  is  seen  to  grow  and  the  fireball  interior  is 
seen  to  expand  to  much  less  than  the  external  ambient  density. 

Reference  to  the  opacities  for  air  as  given  in  Volume  3  will 
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confirm  that  the  shock  front  at  these  early  densities  and  temperatures 
is  quite  opaque.  For  instance,  at  the  2S0  p sec  time  of  Figs.  2-2  and  2-3, 
the  emission  mean  free  path  for  a  shock  temperature  of  30,000°K  and  a 
density  of  8  times  normal  is  about  0.01  cm.  The  fireball  will  expand  to 
much  lower  temperatures  and  much  larger  size  before  anything  behind 
the  shock  front  will  become  visible.  It  is  during  this  period  that  the 
thermal  radiation  rate  decreases  toward  a  minimum  and  the  fireball  appears 
to  grow  dimmer.  (Fig.  2-1,  before  one  millisecond.) 

If  the  fireball  growth  rate  defined  in  Eq.  (2.2-2)  is  computed  for 
the  earliest  time  illustrated  in  the  temperature  profiles  of  Fig.  2-2, 
assuming  for  the  moment  an  emlssivity  of  unify,  the  rate  is  about 

Q 

4  4  x  10  cm/sec.  This  rate  is  too  high  by  an  order  of  magnitude  in 
comparison  with  results  of  the  numerical  calculation  example.  The 
calculation  showed  that  the  expansion  at  this  1.2  microsecond  time  was 
still  being  determined  by  radiation  diffusion.  The  calculation,  however, 
also  treated  the  earliest  times  by  diffusion,  and  not  (as  suggested  above) 
by  transport  within  a  transparent  heated  region  with  a  radius  less  than 
one  mean  free  path  for  the  emitted  radiation.  The  appropriate  mean  free 
path  for  diffusion  is  the  so-called  Rosseland  average,  hereafter  abbreviated 
as  Rmfp.  The  Rmfp  is  defined  as 


I 


Xv  dT^ 


1 


(2.2-3) 


in  which  X  is  the  spectral  mean  free  path,  B  (T)  the  Planck  function, 

r"  v 

and  I  dv  denoting  integration  over  all  frequencies.  The  Rmfp  used  in 
•'o 
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the  calculation  approaches  the  Compton  limit  at  high  temperatures,  however, 
and  allows  the  rate  of  growth  to  be  equally  fast.  In  fact,  without  special 
consideration  for  relativistic  effects,  the  diffusion  growth  can  exceed 
even  the  speed  of  light. 

At  the  earliest  time  illustrated  in  Figs  .  2-2  and  2-3,  the  fireball 
has  grown  to  more  than  one  mean  free  path  in  radius  which  reduces  the 
effectiveness  of  the  innar  temperature  in  driving  the  continued  expansion. 

A  more  heuristic  interpretation  of  the  growth  rate  formula  allows  the 
emissivity  to  be  interpreted  as  a  resistance  parameter  which  reduces  the 
growth  rate  tc  less  than  the  blackbody  rate  for  that  central  temperature. 

An  alternative  interpretation  treats  this  efficiency  factor  as  one  which 
compensates  for  the  use  of  the  shielded  innermost  temperature  whe  the 
effective  temperature  is  at  some  radial  position  further  out  and  is  lower  in 
value,  i.e.,  e  m  (T^/Tj)4  where  Tq  is  the  effective  outer  temperature 
and  Tj  is  the  screened  central  temperature.  A  crude  measure  of  this 
correction  and  of  an  appropriate  value  for  this  viscosity  constant  might 
be  the  ratio  of  the  Rrnfp  to  the  radius  of  the  front,  i.e.,  the  reciprocal 
of  the  number  of  mean  free  paths  between  the  radiating  interior  and  the 
front.  For  the  diffusion  approximation,  such  a  correction  might  better 
be  expressed  in  terms  of  the  local  temperature  gradient  as  well. 
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The  Inner  temperature  of  our  example  calculation  at  1.2  micro¬ 
seconds  Is  around  10®  °K  (Fig.  2-2)  and  the  density  is  still  normal 
(1.29  x  10  gm/cm  )  (see  Fig.  2-3)  s  The  Rmfp  Is  a  hit  tean  one 
meter^  while  the  radius  is  about  3.2  meters.  Taking  e  to  be  1/3.2 

a 

brings  the  growth  rate  down  to  about  1.3  x  10  ,  which  is  still  high 
compared  to  that  for  the  numerical  calculation.  The  mean  free  path 
decreases  rapidly  as  the  temperature  falls  below  10®  °K,  however,  and 
since  the  front  at  1.2  |isec  is  at  around  half  the  interior  temperature, 
a  more  appropriate  mean  free  path  might  be  between  0.92  (the  value  at 
10®  °K)  and  0.12  (the  value  at  5  x  10®  °K).  Taking  the  average  of  their 
reciprocals,  l.e.,  averaging  the  opacities,  gives  about  0.2,  so  that 
the  correction  factor,  •  ,  becomes  0.2/3. 2,  and  the  corrected  rate 

7 

becomes  ~  3  x  10  which  agrees  well  with  the  growth  rate  at  that  time 
from  the  detailed  diffusion  calculation. 

The  most  appropriate  specific  energy  and  density  values  for  use 
in  the  growth  rate  approximation  are  those  just  behind  the  front  of  the 
wave,  since  it  is  to  those  conditions  that  the  cold  air  is  to  be  heated, 
l.e.,  it  is  that  heat  capacity  that  will  absorb  the  subsequent  radiation 
energy  flux.  Fig.  2-4  displays  the  specific  energy  profiles  for  this 
one  klloton  example  for  the  same  time  as  those  of  Figs.  2~2  and  2-3. 

It  is  interesting  to  test  the  simple  growth  rate  formula  (Eq ,  2  .2-2)  against 
the  fireball  growth  speed  that  results  from  the  numerical  calculations. 

The  calculation  should  show  a  rate  faster  than  hydrodynamic  shock 
growth  until  the  radiation  growth  has  fallen  below  the  speed  of  hydrodynamic 
motions,  and  this  simple  form  should  show  a  comparable  rate 
until  that  time,  then  a  much  slower  rate  as  the  shock  wave  takes  over. 
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Fig.  2-5  compares  these  rates  for  the  same  time  period  as  covered  by 
the  profiles  of  Figs.  2-2,  2-3,  and  2-4  and  beyond.  In  these 
comparisons,  several  approximations  are  represented  by  dashed  curves, 
while  the  numerical  calculation  rate  is  shown  as  a  solid  curve.  The  rate 
calculated  as  blackbody  at  the  inner  temperature,  shown  as  circled  points, 
is  clearly  too  high  at  all  times.  £ven  when  the  lower  temperatures  of 
the  outer  edge  of  the  hot  region  are  used  to  determine  a  blackbody  rate 
(the  triangles  A  of  Fig.  2-5),  the  rate  Is  at  all  times  too  high. 

When  the  radiative  resistance  parameter  is  represented  as  the  ratio  of  the  Rnifp 
to  the  hot  region  radius,  using  the  Rmfp  evaluated  at  the  hot  interior 
temperature,  the  modified  rate  is  still  high  at  the  early  times  when 
diffusion  is  still  dominant  (the  square  points  of  Fig.  2-5).  It  drops 
precipitously  as  the  Interior  cools  and  becomes  opaque  at  Just  the  times 
whcsn  a  shock  begins  to  form  (at  about  10  microseconds  in  this  example). 

Although  this  approximation  is  not  correct  in  value,  the  sharpness  of 
the  decrease  as  hydrodynamics  takes  over  can  make  it  a  useful  indicator 
of  the  transition  onset,  and  so  a  reasonable  prediction  tool. 

The  more  accurate  estimate  of  the  early  diffusion  growth  rate. 

Involving  the  averaged  opacity  between  interior  and  front,  is  also  more 
subject  to  error  due  to  the  difficulty  in  Judging  appropriate  front  conditions. 

These  estimates  are  Indicated  in  Fig.  2-5  by  diamonds.  These  values 
are  closest  to  the  numerical  calculations  rate  of  growth  at  the  earliest 
times  wnon  diffusion  is  the  dominant  mechanism.  The  earliest  profile 
front  temperatures  are  difficult  to  define  because  the  front  is  not  sharp. 

The  rate  of  growth  estimated  at  these  approximate  front  temperatures  with 
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a  corresponding  resistance  parameter  leads  to  the  estimates  indicated  by 
the  triangles  >  in  Fig,  2-5.  Again,  the  shock  formation  times  is  denoted 
by  a  sharp  drop  in  the  rate  estimated  in  this  manner.  Both  of  the  blackbody 
rate  curves  (upper  curves  of  Fig.  2-5)  show  a  fairly  sharp  drop  at  shock 
formation  time.  Such  a  simple  but  uncertain  formula  may  be  preferable  to 
the  use  of  the  radiation  resistance  notion  in  determining  shock  formation 
radius  and  time.  Since  in  this  range  of  temperature  and  densities,  the  Rmfp  . 
decreases  with  decreasing  temperature  as  about  the  fourth  power  of  the 
temperature,  using  the  Rmfp  as  a  correction  factor  then  means  that  the 
adjustment  parameter  is  as  sensitive  to  temperature  changes  at  the  black- 
body  rate  itself.  Such  critical  opacity  dependences  may  provide  some  sharp 
distinctions  in  estimates  but  at  the  same  time  present  some  hazards  in 
choosing  effective  temperatures  too  casually. 

After  shock  formation,  the  rate  of  growth  of  the  fireball  should 
follow  the  shock  growth  itself  until  the  shock  cools  to  transparency. 

The  shock  speed  for  a  strong  shock  is  approximately  given  by 


where  y  -  (P  /p  E  )+l  .  is  the  ambient  air  density  and  P  ,  p  , 
s  s  s  s  o  s  s 

and  E_  are  shock  front  values  of  pressure,  density  and  internal  specific 

S 

energy.  This  approximation  is  shown  in  Fig.  2-5  by  the  symbol  <  .  For 
the  earliest  times,  the  expansion  is  faster  than  this  shock  rate,  but  at 
later  times  it  corresponds  well . 
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Using  the  particle  velocities  (u  )  at  the  front  and  the  density  at 

S 

the  front  (through  the  mass  conservation  relation)  provides  the  relation 


Vs 

P  S~Po 


(2.2 


The  rate  derived  from  corresponding  values  of  us  and  pg  for  the 
numerical  calculation  is  indicated  in  Fig .  2-5  by  triangles  pointing  down 
(v) .  After  nuclear  shock  catch-up  this  curve  coincides  with  the  solid 
curve  for  the  directly  computed  rata. 

In  the  temperature  region  of  interest,  a  shock  can  be  pictured  as  a 
sharp  gasdynamic  Jump  imbedded  in  a  region  of  radiation-induced  temperature 
variation  (Fig.  2-6) .  The  internal  structure  of  this  type  of  wave  has  been 
investigated  extensively  by  Zeldovich  (1957),  Raizer  (1957).  and  Heaslett 
and  Baldwin  (1963),  to  name  a  few,  ail  of  whom  employed  the  equations  of 
steady  continuum  gas  dynamics  with  gray  radiative  transport. 

The  important  feature  of  this  picture  is  the  temperature  precursor  which 
runs  ahead  of  the  sharp  front.  This  precursor  is  created  by  the  radiation 
from  the  high  temperature  region  behind  the  sharp  front.  One  can  estimate 
the  temperature  of  the  precursor  by  equating  the  power  radiated  by  this 
front  with  the  rate  of  heating  in  the  precursor .  In  the  resulting  relation 


Puep 


(2.2 


p  ,  u  and  ep  stand  for  the  ambient  air  density,  the  shock  velocity  and 
the  internal  energy  of  the  air  in  the  precursor.  From  the  latter  quantity  and 
the  equation  of  state,  one  can  then  obtain  the  temperature  of  the  precursor. 
Using  the  Hugoniot  relations  (Section  5.1  of  (4))  and  a  simple  analytic  fit 
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to  the  equation  of  state,  one  obtains  at  sea  level  the  relation 

T  «  3.45  x  10"7  T2,17  (2.2-7) 

P  s 

For  a  shock  temperature  of  10^  °K  we  calculate  a  precursor  temperature  of 
23,000°K  and  note  that  a  millimeter  layer  of  air  at  that  temperature  Is  opaque. 

Up  to  the  time  when  fhe  shock  temperature  drops  to  10^  °K  all  the  thermal 
radiation  comes  therefore  from  the  precursor.  To  make  a  quantitative 
evaluation  of  the  power  radiated  during  this  phase  requires  a  more  detailed 
analysis  of  the  radiative  transfer  problem.  Qualitatively  one  can  see  that 
the  power  must  decrease  with  time  and  this  is  the  decrease  following  the 
early  peak  in  Fig.  (2-1). 

As  the  shock  temperature  drops  below  10^  °K,  the  precursor  cools  to 
where  it  gradually  becomes  transparent  so  that  the  radiation  from  the  shock 
front  begins  to  shine  through.  When  this  happens  the  power-time  curve  goes 
through  the  minimum  which  is  shown  in  Fig.  2-1  as  the  shock  precursor 
minimum  (SPM) .  While  the  shock  front  gets  more  and  more  exposed ,  the 
power  rise  because  of  the  exposure  is  eventually  compensated  by  the 
temperature  drop  of  the  shock  Itself  and  at  that  time  the  power  level  reaches 
the  maximum  which  is  shown  on  Fig.  2-1  as  the  shock  exposure  maximum  (SEM) . 

During  the  phase  following  this  maximum  the  rate  of  thermal  radiation 
loss  from  the  fireball  can  be  characterized  as  that  from  a  blackbody  sphere 
at  tho  shock  front  temperature  and  of  radius  equal  to  that  of  the  shock 
radius.  Although  such  a  rate  describes  the  fireball  emission,  the  power 
observed  at  any  distance  will  contain  only  that  fraction  which  the  cold  air 
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outside  the  fireball  is  capable  of  transmitting.  To  a  good  approximation, 
that  fraction  can  be  calculated  by  assuming  a  simple  cut-off  in  the  trans¬ 
mitted  spectrum.  Values  of  this  fraction  f(T.,v„)  where  v_  is  the 
frequency  corresponding  to  a  cut-off  at  1860&  (representing  the  edge  of  the 
C>2  absorption)  are  shown  as  functions  of  the  temperature  (Tj  in 
Fig.  2-7) ,  The  fraction  is  evaluated  from  a  tabulation  of  the  Planck  radiation 
function  and  its  partial  Integral  by  Gilmore  (1956) .  The  fraction  is  defined  as 

xc  3 

«Vvc>-^  f  ¥7  <2'2-8> 

where  xq  ■  hv^/kTg  and  h  and  k  are  Planck's  and  Boltzmann's 
constants,  respectively  (h«  6.625  x  10-27  erg  sec,  kn  1.380  x  10“16  erg/°K) . 

During  this  phase  which  Lists  until  the  shock  temperature  has  dropped 
to  so  low  a  value  as  to  make  the  shock  front  transparent,  the  following 
simple  expression  characterizes  the  thermal  radiation  rate  for  an  air  burst 
nuclear  explosion: 

P  ~  4f  R2  0  Tj  f(T#,vc)  ,  (2  .2-9) 

in  which  R.  represents  the  shock  radius,  T_  the  temperature,  a 

8  o 

—  C  9  A 

the  Stefan-Boltzmann  constant  (5.672  x  lO-0  erg/cm  /deg  /sec)  and 

f(T.,vJ  the  fraction  passed  by  the  cold  air. 
s  c 

Unit  optical  depth  for  most  frequencies  grows  longer  as  the  shock 
front  cools,  so  that  emission  from  hotter  air  behind  the  front  begins  to 
shine  through.  The  shock  front  itself  becomes  fainter  and  appears  to  pull 
ahead  of  the  luminous  fireball,  a  phenomenon  which  is  referred  to  as  the 
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"breakaway"  (Gladstone,  1962,  Section  2.110).  Because  the  shock  has 
been  carrying  the  shock-heated  air  outwards  with  its  expansion,  a  rather 
steep  gradient  in  temperature  is  maintained  just  behind  the  front,  so  that 
a  slight  increase  in  unit  optical  depth  exposes  higher  temperatures  but  at  no 
appreciable  decrease  in  radius  of  effective  radiating  surface.  At  this  time 
the  power  curve  goes  through  the  principal  minimum  (PMIN)  in  Fig.  2-1 . 

Fig.  2-8  Indicates  the  geometry  of  fireball  temperatures  (in  cross- 
section)  at  a  time  somewhat  beyond  the  time  of  minimum  thermal  power. 

While  the  thermal  radiation  increases,  and  while  progressively  deeper  parts 
of  the  fireball  are  exposed,  the  hydrodynamic  expansion  dominates  so  that 
the  visible  or  apparent  fireball  size  continues  to  grow.  Eventually,  the 
luminous  fireball  stops  expanding  and  the  power  output  reaches  the  final 
maximum  (FMAX) . 

Throughout  this  radiative  and  then  hydrodynamic  expansion  of  the 
fireball,  right  up  to  the  time  of  minimum  light  intensity,  something  less  than 
half  of  one  percent  of  the  total  yield  has  been  radiated  out  of  the  fireball. 

Both  Integrals  of  the  measured  power-time  data  from  tests  and  of  the  simple 
expression  given  above  for  radiation  from  the  fireball  (as  determined  by  3hock 
front  conditions)  lead  to  an  answer  close  to  0.44%.  In  the  latter  integral, 
the  properties  of  the  shock  front  are  sufficiently  well  defined  by  almost  any 
calculation  -  even  those  not  accounting  for  radiation  transport  in  the  early 
phases,  but  necessarily  taking  account  of  the  real  gas  properties  of  air. 
(e.g.,  Erode,  1955a,b). 

Since  the  air  just  behind  the  shock  is  much  hotter  and  much 
less  dense  than  the  air  at  the  front  itself  (see  Figs.  2-2,  2-3,  and 
2-4),  the  rate  of  thermal  radiation  increases  rapidly  when  that  air  is 
exposed,  until  the  hottest  temperatures  at  the  bock  of  the  steep  gradient 


behind  the  shock  front  become  visible  end  ere  radiating  directly  to  the 
exterior.  Thereafter,  as  the  site  of  the  radiating  sphere  shrinks  and 
the  interior  cools,  the  rate  decreases.  This  is  the  period  in  which  the 
fireball  history  comes  closest  to  the  cooling  wave  notion  expressed  in 
a  simple  form  by  Zel'dovlch,  Kompaneets  and  Raiser  (1958)  and  applied 
Into  a  fireball  theory  by  Bathe  (1964).  The  notion  Is  that  a  recognisable 
and  fixed  form  cooling  wave  erodes  the  hot  fireball  interior,  beginning 
at  the  exterior  and  working  Inwards »  After  the  shock  fre  nt  has  become 
transparent,  such  a  cooling  wave  process  is  very  likely  operating,  but 
it  Is  not  at  first  working  Into  a  fixed  or  uniform  temperature  or  density, 
and  It  Is  not  shrinking  the  fireball.  The  outward  hydrodynamic  expansion 
is  still  too  strong*  When  the  outer  regions  have  all  become  sufficiently 
cool  and  transparent  so  that  the  inner  radiation-heated  region  Is  exposed, 
then  the  conditions  suggested  for  a  cooling  wave  are  approximated.  Even 
then  the  temperatures  are  not  constant  and  the  surface  area  Is  shrinking 
rapidly,  so  that  the  cooling  rate  decreases.  When  this  Interior  sphere 
has  cooled  to  below  about  10,000°K,  the  whole  of  the  fireball  has  become 
relatively  transparent,  and  the  subsequent  radiation  losses  are  characterised 
more  by  a  grey  body  approximation,  l.e,  ,  characteristic  of  a  volume  of  air 
of  low  emisslvlty  -  one  of  less  than  unit  optical  thickness.  It  may  also 
still  be  expanding  adlabatlcally,  and  contributing  energy  to  the  shock 
growth. 

Temperature  profiles  spanning  this  period  from  principal  minimum  through 
final  maximum  and  on  to  a  transparent  fireball  are  illustrated  in  Fig.  2-9. 

For  a  yield  of  one  kiloton,  the  cooling  wave  Is  less  obvious  as  a  wave 
than  as  a  rather  sudden  depletion  of  the  hottest  Interior  region.  At  larger 
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yields,  where  more  optical  thickness  Is  represented  at  every  stage, 
the  progress  of  a  cooling  wave  from  outside  toward  the  center  is  more 
easily  imagined  (Brode,  1964a,  Fig.  5,  b  F<g.  15). 

In  this  rather  complex  power  radiated  history  of  two  or  three  maxima , 
as  illustrated  in  Fig.  2-1 ,  the  final  pulse  represents  a  total  energy  of  30 
or  40%  of  the  total  yield  of  the  nuclear  device.  When  all  the  energy  is 
accounted  for  ,  including  that  in  the  Infrared  which  originates  in  shock 
heated  air  outside  the  visible  fireball  and  is  radiated  only  very  slowly,  the 
fraction  may  be  even  larger. 

There  are  several  features  of  this  one  klloton  explosion  that  have 
not  yet  been  mentioned  and  that  are  of  lesser  Influence  on  the  thermal 
radiation  and  fireball  behavior  at  sea  level,  but  which  become  relatively 
more  important  at  other  yields  or  altitudes.  One  such  feature  is  a  second 
shook  wave  which  originates  within  the  bomb  vapors ,  traverses  the  early 
sphere  of  hot  air  behind  the  radiation  front,  and  overtakes  the  strong 
shock  that  forms  tho  fireball  surface  at  later  times .  This  debris  or 
bomb  shock  is  seldom  in  evidence  in  sea  level  explosions,  and  has  lost 
most  of  its  energy  long  before  it  overtakes  the  main  shock,  so  that  it 
contributes  little  to  the  fireball  surface  or  thermal  radiotion  histories. 
Because  the  hot  interior  of  the  fireball  is  for  most  of  the  fireball  expansion 
a  region  of  long  mean  free  path,  it  is  a  region  of  nearly  uniform  temperature. 
When  the  case  shock  compresses  and  heats  this  air  further,  some  of  chat 
heat  is  promptly  re-radiated  ahead,  forcing  this  interior  shock  to  behave 
lsothermally  rather  than  adiabatically .  This  Isothermal  shock  can  lose 
energy  very  rapidly  by  this  means,  and  may  persist  only  through  the 
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continuation  of  its  outward  momantum. 

A  history  of  tha  radii  of  this  shook  and  othar  fronts  in  this  kiloton 
axampla  is  shown  in  Fig.  2-10.  Whan  this  debris  shook  travels  outward 
to  the  edge  of  the  fireball,  it  encounters  a  sharp  discontinuity  in  density. 

At  that  point,  a  reflected  shock  originates  and  is  returned  inward  to 
Implode  upon  the  origin.  Here  again,  is  a  phenomenon  which  has  no 
consequence  for  this  example,  but  may  be  prominent  in  high  altitude  events. 
The  vaporized  bomb  expands  along  behind  this  debris  shook,  but  at  £aa 
level  is  not  visible  until  very  late  -  after  the  second  maximum  in  the 
thermal  power.  This  bomb  debris  is  not  realistically  treated  in  any  of 
the  usual  calculations,  since  they  Invariably  assume  radial  symmetry 
and  allow  no  mixing  or  turbulent  flow.  When  it  emerges  in  the  transparent 
fireball  at  late  times,  the  vaporous  debris  has  become  highly  turbulent 
and  has  evidently  mixed  with  considerable  fireball  air. 

Although  Fig.  2-10 indicates  a  transition  from  radiation  expansion 
to  strong  shock  expansion,  the  radiation  diffusion  does  not  stop.  As  the 
shook  brings  down  the  density  in  the  Interior  air,  the  opacity  of  that  air 
decreases  also,  and  the  radiation  is  allowed  to  diffuse  into  some  of  the 
now  shock-heated  air.  The  dotted  curve  below  the  shock  front  curve  of 
Fig. 2- 10 indicates  the  position  of  the  radiation  front.  Most  of  its  outward 
excursion  is  due  to  the  flow  of  air  in  the  expansion  behind  the  shook 
Itself.  At  times  later  than  shown  in  Fig.  2-10,  the  radiation  front  and  the 
visible  fireball  drop  behind.  The  short  dashed  curve  near  the  end  of  the 
shock  front  curve  of  Fig.  2 -10 represents  a  position  close  to  the  fireball 
front  -  being  the  locus  of  points  at  5000°K  -  with  higher  temperatures 
inside  of  that  radius,  and  colder  temperatures  outside. 
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Tha  continued  flow  of  radiation  Is  made  more  obvious  in  a  plot,  of 
tha  temperature  histories  of  several  shells  of  gas  representing  the  air 
that  was  shocked  to  a  particular  temperature,  cooled  in  the  subsequent 
adiabatic  expansion,  but  than  reheated  by  the  radiation  wave  following* 
Such  a  set  of  curves  are  shewn  In  Fig.  2-11 ,  where  at  particles  shocked 
to  10®,  70,000  and  40,000°K  the  adiabatic  cooling  Is  arrested  by  the 
arrival  of  tha  radiation  diffusion  wave  which  causes  that  shell  of  air 
to  rise  in  temperature  again.  The  air  starting  at  the  20,000°K  shock 
point  la  never  over-run  by  tha  radiation  wave,  l.e. ,  the  radiation  wave 
stops  before  It  gets  that  far,  having  run  out  of  energy  and  not  being 
elded  by  further  expansion  which  would  help  to  reduce  the  opacity  of  the 
cooler  air  In  front  of  It. 

A  great  many  nuclear  weapon  applications,  tests,  and  effects 
interests  Involve  the  thermal  and  fireball  effects  of  nuclear  explosions  on 
or  close  to  the  surface  of  the  earth.  Many  Interesting  and  novel  inter¬ 
actions  occur  which  are  not  evident  In  air  bursts  well  away  from  th 
surface.  However,  there  la  no  Intention  of  providing  a  review  of  these 
factors  In  this  current  effort.  It  should  suffice  to  point  out  that  all  of 
the  essential  features  which  are  described  and  followed  here  are  also 
an  Important  part  of  surface  bursts,  while  the  latter  are  further  complicated 
by  the  early  Injection  into  the  fireball  of  massive  amounts  of  earth  material, 
end  by  the  geometric  distortions  of  the  fireball  that  occur  as  a  consequence 
of  shock  and  thermal  reflections  from  the  earth's  surface.  The  change  in 
radiator  shape  from  spherical  to  at  best  hemispherical  or  worse  a  partially 
obscured  hemisphere  means  that  the  thermal  flux  to  other  points  on  the 
earth's  surface  will  be  less  than  that  from  an  air  burst.  Total  flux  at 


points  in  the  air  nbove  the  burst  may  at  tha  same  t'.me  be  lnoraasad. 

As  tha  aarliast  pioturas  of  nuolaar  explosions  (Gladstone,  1962) 
olaarly  show  a  further  oonsequenoa  of  tha  ground  involvement  in  tha 
*dusi  skirt*  which  precedes  tha  fireball  shock  and  largely  obscures 
tha  base  of  the  fireball.  Although  not  visible  in  any  of  the  pictures, 
there  must  also  be  vast  amounts  of  earth  shovelled  into  the  hot  fireball 
interior  at  an  early  time  (Brode  and  BJork,  1960).  and  this  material  cannot 
fell  to  have  profound  effects  on  both  the  temperature  and  thermodynamic 
state  of  the  fireball  gases  and  on  the  opacities  or  optical  properties  of 
that  region.  Test  observations  Indirectly  attest  to  the  influence  of  such 
surface  effects. 

Observations  and  measurements  at  very  late  times  in  the  fireball 
history  show  that  tha  radiation  rate  trails  off  with  a  very  long  tall  (as  in 
Fig.  2-1)  and  comes  from  shapes  other  than  simple  spheres.  The  fireball 
at  late  times  is  like  a  bubble  in  the  atmosphere  -  having  very  low  densities 
in  its  interior  -  and  so  it  rises,  and  in  rising  breaks  up  at  the  bottom  to 
transform  itself  into  the  familiar  atomic  cloud  ring  or  torroid  which  rolls 
its  way  up  through  the  atmosphere.  The  torroldal  circulation  that  is 
Induced  is  quite  strong  and  serves  to  severely  limit  mixing  of  the  hot 
fireball  gases  with  the  exterior  cold  air,  thus  prolonging  the  existence 
of  air  and  debris  at  temperatures  of  thousands  of  degrees  Kelvin,  while 
the  cloud  rises  in  the  atmosphere.  When  much  earth  material  and/or 
water  vapor  is  present,  the  late  fireball  remains  opaque,  and  the  rate  of 
late  radiation  is  more  determined  by  the  rate  of  turbulent  mixing  which 
brings  hot  gases  to  the  cloud  surfaae  rather  than  by  the  radiation  transport 
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properties  alone •  For  an  air  burst  well  above  the  surface ,  however,  the 
late  fireball  becomes  quite  transparent,  so  that  only  a  faintly  luminous 
ring  assures  us  that  the  rise  and  circulations  are  much  the  same  as  for 
lower  bursts. 


2  .3  Other  yields  and  altitudes 

The  example  of  a  one  kiloton  detonation  at  sea  level  contains  all  the 
basic  physical  phenomena  which  enter  into  consideration  at  iher  yields 
and  at  altitudes  up  to  about  70  km.  The  overall  appearance  is,  nevertheless, 
appreciably  different  since  the  individual  events  which  are  responsible  for 
the  various  maximum  and  minima  in  Fig.  2-1  occur  at  different  times. 

In  carrying  out  a  discussion  of  these  changes,  it  is  useful  to  note 
that  the  relation  between  shock  radius  and  time  can  be  approximately  repre¬ 
sented  by  a  hydrodynamic  scaling  law.  To  formulate  this  we  introduce  the 
scaled  variables 
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where  Y  is  the  yield  of  the  explosion  and  p  =  p/pQ  the  ambient  air 
density  relative  to  that  at  sea  level.  In  our  1  kiloton  sea  level  example  the 
scaling  factors  are  of  course  unity. 
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The  scaling  law  Is  not  valid  until  after  the  debris  shock  has  caught 
up  with  the  somewhat  slower  shock  which  is  driven  by  only  a  fraction  of  the 
total  yield.  The  scaling  law  can  be  deduced  from  the  strong-shock  solution 
for  a  point  source  (Taylor,  1950;  and  Sedov,  1959) .  This  limits  the  validity 
of. the  scaling  laws  at  late  times  when  the  shock  becomes  weak.  The  law 
obtained  in  this  manner  takes  the  form 

*  *  2/5 

R  «  k(t  )  (2.3-3) 

where  the  subscript  a  denotes  that  the  value  Is  taken  at  the  shock  front. 
From  the  radius  R_  ■  20  m  read  off  Fig.  2-10  for  t  «  1  msec, 

S 

one  determines  the  proportionality  factor  to  be 

k  *  20  m  (msecf2/S  (KTf1/5  (2.3-4) 

In  the  above  scaling  law  the  scaling  factors  cancel  out  of  the  expression 
for  the  shock  velocity 


dR 

a 

dt 


(2.3-5) 


which  makes  this  velocity  a  function  of  t  only .  Applying  the  Hugoniot 
relations  one  can  now  show  that  the  temperature  Tg  behind  the  shock  is 


* 

also  very  nearly  a  function  of  t  only.  This  is  not  an  exact  result  because 
it  depends  on  certain  assumptions  about  the  equation  of  state  which  are  only 
approximately  true.  If  one  checks  the  prediction  that  T  is  a  function  of 
the  scaled  time  only  against  computed  results,  one  finds  that  it  fits  the 
changes  with  yield  at  a  given  altitude  very  well.  The  changes  with  altitude 
't  a  given  yield  are  not  given  with  quite  the  same  accuracy,  but  are  still 
sufficiently  close  for  most  purposes . 

It  should  be  noted  that  the  above  scaling  procedure  differs  somewhat 
from  the  so-called  Sachs  scaling  where  one  introduces  the  variables 

T*  =  (p/Y)l/3R  (2.3-6) 

t  =  (p/Y)l/3  (p/p)1/2t  (2.3-7) 

If  one  expresses  the  ambient  pressure  and  density  p  and  p  ,  the  yield 
Y  and  the  variables  R  and  t  all  in  the  same  system  of  units, the  scaled 
variables  are  dimensionless.  It  is  more  convenient,  however,  to  replace  p 
and  p  by  the  ratios  TJ  =  p/pQ  and  p  ap/pQ  relative  to  the  sea  level 
values,  and  to  express  Y  as  before  in  KT.  With  this  choice,  the  strong 

4r  h 

shock  relation  between  1?  and  T  is  the  same  as  between  R  and  t  , 
i.e.  Eq.  (2.3-3)  with  the  same  value  of  the  constant  k  . 

The  two  methods  of  scaling  differ  in  regard  to  what  are  considered 
similar  situations.  For  the  starred  variables  similarity  implies  that  for  example 
the  hydrodynamic  velocity  and  the  temperature  are  unchanged;  for  the  variables 
with  the  tilde  the  Mach  number  and  the  temperature  ratio  T/T0  are  unchanged . 
Either  choice  is  acceptable,  but  ours  has  the  advantage  of  using  only  one 
parameter  to  characterize  the  altitude . 
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From  the  time  of  shock  formation  until  breakaway  the  thermal  radiation 

comes  partly  from  the  shock  precursor  and  partly  from  the  shock  front,  and 

it  is  evident  that  the  shock  temperature  is  a  major  factor  In  determining  the 

timing  oi  the  maxima  and  minima  during  this  period .  At  a  given  altitude  where 

one  has  a  one-tc-one  relation  between  shock  and  precursor  temperature 

(see  Eq.  2.2-7  for  the  sea  level  case)  it  is  fairly  accurate  to  state  that  the 

shock  formation  maximum,  the  shock  precursor  minimum  and  the  shock  exposure 

maximum  occur  at  fixed  values  of  the  shock  temperature  and  therefore  at 

fixed  values  of  the  scaled  time.  As  or:.  considers  different  altitudes  the 

relation  between  T  and  T  changes  and  one  finds  different  values 
P  8 

of  the  scaled  times  associated  with  these  features  of  the  power  curve. 

After  breakaway  the  radiation  comes  from  points  to  the  inside  of  the 
shock  front  whose  locations  depend  on  the  optical  properties  of  the  air  and  in 
turn  on  the  temperature  and  density  distribution .  This  is  a  radiative  transfer 
problem  and  hydrodynamic  scaling,  where  times  vary  as  the  cube  root  of  Y  , 
is  replaced  by  radiative  scaling,  where  times  vary  approximately  as  the  square 
root  of  Y  (Glasstone,  1962,  section  7 .92) . 

Altitude  scaling  is  a  more  difficult  problem  than  yield  scaling .  We  have 
already  mentioned  the  effect  of  the  changing  relation  between  Ts  and  Tp  . 
To  this  we  must  add  that  the  relative  Importance  of  hydrodynamics  and 
radiation  transfer  shifts  with  increasing  altitude  in  favor  of  the  latter.  Thus 
shocks  form  more  slowly  and  radiation  is  emitted  more  rapidly  as  one  goes  to 
higher  altitudes.  As  a  result  the  features  before  breakaway  are  Increasingly 
delayed  and  the  maxima  and  minima  tend  to  become  weaker.  The  final 
radiative  pulse  on  the  other  hand  advances  in  time  and  becomes  more  prominent. 
At  about  SO  km  the  early  features  have  become  washed  out  and  what  was  the 
final  pulse  is  now  the  only  pulse . 
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THERMAL  POWER  RADIATED  FROM  ONE  KILOTON  AT  SEA  LEVEL 


>250  nsec 


10 


1  *CT#  SEA  LEVEL 


fig  .  2-6  FRACTION  OF  BLACKBODY  RATE  AT  WAVELENGTHS 
LONGER  THAN  CUTOFF  AT  1860A 


FIG .  2-7  SHOCK  TEMPERATURE  PROFILES  WITH  AND 
WITHOUT  RADIATIVE  TRANSPORT 
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NTS  AT  TIMES  NEAR  MINIMUM  LIGHT  INTENSITY 
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FIG.  2-10  EARLY  RADIUS- TIME  FOR  A  ONE  KILOTON  -  SEA  LEVEL  FIREBALL 
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2-11  AIR  MASS  TEMPERATURE  HISTORIES  -  SHOWING  ADIABATIC  EXPANSION  COOUNG 
AND  THE  HEATING  EY  THE  FURTHER  GROWTH  OF  THE  RADIATION  DIFFUSION  WAVE 


Chapter  3  .  SUMMARY 

As  the  reader  of  this  report  will  have  gathered  any  attempt  at  following 
the  evolution  of  a  fireball  by  numerical  means  utilizes  a  whole  spectrum  of 
facts  and  assumptions  ranging  all  the  way  from  being  undisputable  to  being 
highly  suspect.  This  is  likely  to  leave  him  with  a  somewhat  uncomfortable 
feeling  about  the  reliability  of  such  a  calculation.  In  this  summary  we  will 
put  the  finger  on  some  of  the  underlying  assumptions,  point  out  what  we 
know  about  their  validity  and  evaluate  how  strongly  our  lack  of  basic 
information  or  of  the  willingness  to  spend  computing  dollars  will  influence 
the  final  product. 

3 .1  Equation  of  state 

Neatly  all  calculations  make  the  basic  assumption  that  the  air  remains 

* 

throughout  In  a  state  of  ITE.  Once  this  is  accepted  it  follows  that  the 
relation  between  the  various  state  variables  can  be  found  by  the  methods 
of  statistical  mechanics.  Th^  application  of  these  methods  is  very  straight- 
forward  and  the  results  as  presented  in(l)  and  (3)  are  probably  correct  to 
within  a  few  percent.  In  some  Instances  analytic  fits  which  were  made  to 
feed  these  results  into  a  computer  have  been  poor  but  this  problem  can 
certainly  be  overcome  and  should  not  contribute  significantly  to  errors  in 
hydrodynamics  or  other  phases  of  the  main  calculation.  Some  problems  may 
arise  in  the  central  region  where  one  has  debris  rather  than  air  and  even 
more  so  in  the  transition  region  where  one  may  have  a  debris  air  mixture. 
Fortunately  many  important  results  are  rather  insensitive  to  these  details. 

*  Local  Thermodynamic  Equilibrium  (LTE) . 

(1)  stands  for  DASA-1917-I ,  etc. 
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3 .2  Absorption  coefficients 

This  subject  has  been  discussed  In  detail  In  (2)  and  related  facts 
are  brought  up  In  Chapter  1  of  this  volume .  Thera  are  several  ways  of 
describing  the  absorption  which  differ  in  the  amount  of  detail  which  i  s 
presented.  The  most  detailed  description  consists  of  a  listing  of  lines 
with  intensities  and  line  shape  parameters  on  top  of  a  continuum.  All 
these  factors  are  subject  to  errors  as  we  shall  briefly  discuss. 

In  the  low  temperature  case  where  the  lines  are  due  to  molecular 
systems  the  information  comes  largely  from  experimental  spectroscopic 
studies.  The  limitations  of  our  knowledge  about  frequencies  and  intensities 
is  discussed  in  (2)  Chapter  7.  The  information  on  line  shapes  is  almost 
non-existent.  To  this  one  should  add  that  one  can  hardly  afford  to  include 
any  but  the  strongest  band  systems.  Even  the  rather  minimal  choice  of 
eight  band  systems  in  the  most  recent  version  of  the  SACHA  program  brings 
the  number  of  transitions  to  over  190,000. 

In  the  high  temperature  case  the  absorption  comes  from  inverse 
Bremsstrahlung  and  from  transitions  in  atoms  and  atomic  ions.  There  is 
a  strong  continuum  due  to  the  first  and  due  to  photoicni  ration.  There  is 
a  fairly  well  developed  theory  and  some  experimental  information  backing 
it  up.  On  top  of  the  continuum  is  a  large  number  of  lines.  A  few  levels 
have  been  observed  experimentally  but  the  majority,  especially  for  the 
highly  ionized  atoms,  have  not  been  observed  and  must  be  obtained 
theoretically.  It  is  certainly  necessar  to  find  the  transition  probabilities 
by  quantum  mechanical  methods.  These  are  so  complex  that  one  is  forced 

to  moke  radical  approximations  to  get  any  answers  and  the  results  are  not  very 
reliable. 
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The  calculation  of  the  line  contribution  la  the  most  elaborate  part 
of  the  program  and  again  one  can  hardly  afford  to  Include  any  but  the 
strongest  lines.  This  involves  a  somewhat  arbitrary  cut-off  procedure 
whose  practical  effect  can  only  be  evaluated  when  one  specifies  how 
the  absorption  coefficient  is  to  be  used. 

The  detailed  description  of  absorption  with  fine  spectral  resolution 
greatly  exceeds  the  requirements  of  radiative  transfer  calculations.  As 
shown  in  (2)  Chapter  2,  it  is  unfortunately  difficult  to  define  averages  which 
permit  satisfactory  calculations.  Tims  Planck  and  Rosseland  means  which 
average  and  uv_1  respectively  apply  only  in  limiting  situations; 
the  one  for  very  transparent,  the  other  for  very  opaque  media.  Nevertheless 
such  means  are  useful  and  have  been  calculated.  In  the  specific  case  of 
line  effects,  mentioned  in  the  preceding  paragraph,  the  contribution  is 
not  ver  large  until  one  reaches  temperatures  like  2  x  105oK  and  high 
densities . 

Because  of  the  many  uncertainties  entering  the  calculation  of 
absorption  coefficients  one  has  no  systematic  way  of  estimating  their 
accuracy.  The  responsible  authors  of  opacity  calculations  are  generally 
confident  it  their  results  lie  within  a  factor  of  three  of  the  true  values. 

In  the  Intermediate  temperature  range  where  the  opacity  reaches  a 
maximum, the  ecu  racy  is  probably  somewhat  better.  Because  of  the  large 
opacity  the  v  waging  procedures,  which  are  appropriate  for  radiative 
transfer  calculations ,  put  the  most  weight  on  those  parts  of  the  spectrum 
where  |iv  is  small  and  very  little  weight  on  the  lines.  The  Rosseland 
mean  does  and  the  Planck  mean  does  not  fall  into  this  class.  Because  of 
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the  emphasis  on  the  continuum,  where  one  has  more  reliable  information, 
the  Rosseland  mean  is  expected  to  be  more  accurate. 

The  extent  to  which  opacity  errors  falsify  fireball  calculations 
depends  on  the  temperature  range.  Inspecting  the  temperature  profiles 
of  Fig.  2-2  which  are  typical  for  the  early  stage  of  a  fireball  one  finds 
large  temperatures  near  the  center  which  makes  the  air  in  that  region  very 
transparent.  Further  out  the  temperature  drops  so  that  the  opacity  rises, 
goes  through  a  maximum  and  then  drops  again.  In  the  transparent  central 
region  radiative  heat  transfer  is  rapid  and  keeps  that  region  at  a  fairly 
uniform  temperature,  as  one  sees  in  Fig.  2-2.  Just  how  uniform  this 
profile  is  has  very  little  effect  on  the  rate  of  expansion  and  therefore 
opacity  errors  by  a  factor  twice  or  even  more  are  not  serious  in  that  region. 

The  opaque  zone  around  the  central  region  acts  as  a  radiative  barrier 
and  the  development  of  the  fireball  does  depend  quite  critically  on  the  opacity 
there.  During  the  very  early  phase  where  hydrodynamic  motion  is  still 
negligible  compared  to  the  radiative  expansion  the  section  of  the  opacity- 
temperature  relation  near  the  maximum  determines  the  rate  of  that  expansion. 
It  also  determines  when  and  where  the  hydrodynamic  shock  begins  to  form. 

When  shock  temperatures  are  still  high,  the  opaque  shell  forms  in 
a  temperature  toe  ahead  of  the  shock.  This  is  the  precursor  which  has  been 
sketched  in  Fig.  2-7  and  which  causes  the  early  structure  in  Fig.  2-1 . 

At  this  stage  the  opacity  is  still  of  interest,  since  it  determines  the 
character  of  the  escaping  radiation  end  other  observable  phenomena,  but 
the  rate  at  which  the  fireball  expands  is  given  by  the  shock  speed  which 
dous  not  depend  on  the  opacity  in  the  toe. 
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The  next  phase  starts  when  the  shock  temperature  has  dropped  low 
enough  that  the  shocked  air  becomes  opaque.  This  Is  aided  by  the  high 
density  directly  behind  the  shock  which  can  be  seen  for  example,  in  the 
density  profiles  of  Fig.  2-3.  Up  to  that  time  radiative  transfer  plays  a 
major  role  In  feeding  energy  to  the  expanding  shock  front.  Now  that 
source  fades  out  and  hydrodynamics  takes  over  as  the  dominant  mechanism 
for  energy  transfer.  The  details  of  the  change  depend  quite  critically 

on  the  opacity  relation. 

Upon  further  cooling  the  shock  front  becomes  transparent  again 
and  the  opaque  shell  recedes  toward  the  center.  This  starts  the  long  time 
Interval  during  which  the  power  vs.  time  curve  of  Fig.  2-1  goes  through  its 
minimum,  rises  back  to  the  final  maximum,  and  starts  to  drop  again.  The 
calculation  of  this  phase  also  depends  quite  critically  on  the  opacity.  A 
test  calculation  made  with  an  opacity  twice  the  accepted  value  stretched 
tho  total  duration  of  this  phase  by  almost  a  factor  of  two  with  a  corresponding 
reduction  of  the  maximum  power  level  to  about  half  of  what  It  was  In  the 
earlier  calculation.  Thus,  errors  In  the  opacity  relation  could  lead  to  fairly 
severe  discrepancies  between  fireball  models  at  the  time  of  the  second 
maximum. 

3.3  Radiation  hydrodynamics  codes 

The  purely  hydrodynamic  part  of  any  code  is  probably  as  accurate 
as  the  equation  of  state  that  is  being  used  except  for  the  smearing  out  of 
the  shock  front  introduced  by  the  artificial  viscosity  method.  The  accuracy 
of  radiative  transfer  calculations  is  less  certain,  unless  one  is  justified 
in  using  the  diffusion  approximation.  In  that  case  the  limiting  factor  is 
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probably  tha  accuracy  of  tha  opacity.  Difficulties  do  arise,  however,  at 
the  front  of  an  opaque  shell.  Consider,  for  example,  two  zones  labeled 
a  and  b  whose  temperatures  place  them  on  the  rising  branch  of  the 
opacity  curve  as  indicated  in  Fig.  3-1.  As  the  heating  wave  progresses 
these  points  move  up  on  the  curve.  The  radiation  escaping  to  the  outside 
comes  at  first  from  zone  a  and  passes  without  attenuation  through  zone 
b  .  As  zone  a  climbs  higher  the  radiation  rises  as  T  but  when  zone 
b  becomes  sufficiently  opaque  to  take  over  the  role  of  zone  a  the  power 
output  drops .  This  cycle  is  repeated  whan  zone  c  and  others  after  it 
climb  into  the  position  originally  held  by  zone  a  .  The  result  of  this  is 
a  sequence  of  maxima  and  minima  in  the  power  versus  time  curve  which 
has  no  physical  reality.  This  spurious  effect  can  be  counteracted  by  using 
finer  zone  sizes  but  at  the  expense  of  increasing  the  running  time  which 
Increases  ha  the  square  of  the  number  of  subdivisions  per  zone.  Actually 
this  is  not  necessary,  since  test  calculations  show  that  the  cruder  zone 
divisions  lead  to  the  same  average  power  and  to  the  same  rate  of  expansion 
as  a  very  fine  division.  A  related  problem  arises  when  the  artificial 
viscosity  routine  introduces  Improper  heating  ahead  of  the  shock  front. 
Letting  the  point  a  in  Fig.  3-1  represent  the  shocked  zone  and  b  and 
c  the  zones  just  ahead  of  the  shock,  this  heating  would  make  points  b 
and  c  lie  at  too  high  temperatures.  The  calculated  attenuation  of  the 
radiation  from  the  shock  is  therefore  larger  than  what  it  should  really  be 
and  leads  us  to  predict  too  low  a  brightness  of  the  fireball.  The  reduced 
output  has,  however,  practically  no  effect  on  the  calculated  motion  of  the 
fireball  air  because  at  that  stage  the  amount  of  energy  lost  by  radiation 
is  still  too  small  to  influence  the  hydrodynamics . 
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Other  error*  maybe  Introduced  by  the  use  of  tpprox'^ate  integration 
routine*  such  a*  the  multiple  ray  or  the  two  stream  techniques  which  have 
been  discussed  in  Chapter  1.  Given  a  set  ot  experimental  data  one  can, 
within  limits,  adjust  the  opacity  temperature  relation  so  that  either  model 
will  reproduce  these  data.  It  is  therefore  not  really  possible  to  disentangle 
errors  which  may  arise  from  the  use  of  these  models  on  the  one  hand,  and 
from  Incorrect  absorption  coefficients  on  the  other  hand. 

3  .4  Deviations  from  LTE 

As  we  have  repeatedly  stated,  nearly  all  calculations  assume  the  air 
to  be  always  in  LTE.  There  are,  however,  some  equilibration  processes  which 
are  decidedly  slow  on  the  time  scale  of  nuclear  fireballs.  At  somewhat 
elevated  altitudes  one  finds  for  example,  that  the  processes  responsible 
for  populating  the  vlbrationally  excited  levels  of  02  and  N2  fall  into 
this  class.  These  processes  ere  discussed  under  the  heading  ‘Vibrational 
relaxation"  in  (4)  section  6.1  In  the  case  of  02  •  populating  the 
vibrational  levels  reduces  the  photon  energy  required  for  reaching  the 
Schumann-Runge  continuum  below  the  8 . 5  eV  which  it  takes  from  the  ground 
state.  As  long  as  these  levels  are  not  populated  the  actual  absorption  is 
therefore  less  than  it  would  be  in  equilibrium.  Similar  considerations  apply 
to  the  Blrge-Hopfiald  transitions  in  N2  .  In  most  codes  these  delays  are 
just  Ignored.  Hlllendahl  (see  Appendix  A)  has  attempted  to  account  for  them 
by  means  of  a  fairly  crude  model  assumption. 

Other  deviations  from  LTE  are  caused  by  the  slowness  of  chemical 
reactions  at  temperatures ,  say,  below  6000°K  (see  (4)  sections  6.9 
and  7, 5^  Among  the  molecules  which  can  form  in  this  temperature  range  is 
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N02  which  has  a  large  absorption  coefficient.  The  delay  in  forming  this 
molecule  when  air  is  suddenly  heated  by  a  shock  and  the  subsequent  delay 
in  removing  it  again  when  the  air  cools  down  can  change  the  absorption 
significantly  from  the  value  at  equilibrium  conditions.  If  the  temperature 
drop  is  rapid  enough  the  N02  concentration  may  stay  for  a  long  time  at 
the  high  concentration  corresponding  to  3000°K  even  though  the  temperature 
has  dropped  below  2000°K.  In  this  situation  one  speaks  of  N02  as  being 
frozen  in . 

Non-equilibrium  processes  also  occur  at  the  debris  air  interface.  It 
has  been  pointed  out  in  (4)  section  5  .2  that  this  is  very  poorly  understood. 

It  is,  in  particular,  quite  uncertain  what  temperature  the  shocked  air 
would  reach  and  what  X-ray  spectrum  would  be  emitted  by  that  air. 

The  questions  raised  in  this  chapter  clearly  do  not  exhaust  the  subject 
of  possible  errors  in  the  present  state  of  the  art.  It  is,  in  fact,  quite  likely 
that  effects  with  more  practical  significance  have  been  overlooked.  Still, 
this  enumeration  should  provide  the  reader  with  some  guidance  what  he 
should  watch. 
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FIG.  3-1  LOCATION  OF  3  ADJACENT  ZONES 
ON  OPACITY  CURVE 
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Appendix  A.  A  Radiation-Hydrodynamics  Code 
A .  1  Introduction 

In  this  appendix,  a  sample  radiation-hydrodynamics  code  is 
presented  which  employs,  with  .varying  degrees  of  sophistication,  much 
of  the  physics  and  basic  data  presented  elsewhere  in  this  volume. 

In  keeping  with  Chapter  2,  this  code  describes  the  radiative  and 
hydrodynamic  properties  of  a  sphere  of  hot  air.  Details  of  the  weapon 
itself  are  not  of  interest  in  the  present  context,  and  rather  crude 
generalizations  have  been  used  to  represent  the  gross  properties  of  the 
hardware. 

The  code  is  presented  as  a  means  of  demonstrating  some  of  the 
techniques  of  radiation-hydrodynamics,  as  described  in  Chapter  1,  the 
application  of  basic  physical  data,  as  described  in  Volume  2  , 
and  as  an  illustration  of  the  results  discussod  in  Chapter  2  .  The  code 
is  not  Intended  as  a  demonstration  of  the  programming  art  and  has  not 
been  pollshed-up  for  presentation  here.  A  great  deal  of  the  program 
could  be  deleted  were  the  program  to  be  used  only  for  present  purposes. 
Much  of  the  basic  philosophy  of  this  code  has  been  presented  in  Chapter  1 
and  by  Hillendahl  (1964),  and  will  not  be  repeated  in  detail. 

The  basic  equations  of  the  problem  are  the  conservation  equations 
of  radiation-hydrodynamics  for  a  ons-dimensional  spherical  system 
which  can  be  written  in  Lagrangian  form  as 


2LU 

at 


6  m 


Conservation  of  momentum  (A . 
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u 


& 

dt 


Definition  of  velocity 


V 


4ttR 


2  $£ 
dm 


Conservation  of  mass 


Q 

0 


on  compression 


0  otherwise 


Definition  of  Artificial 
Viscosity 


dt 


* 


»♦<»!? 


4  4tt 


m2ji 

dm 


-  0 


Conservation  ox  energy 


E  -  E(V,T) 


P  -  P(V,T) 


(A.  2) 

(A.  3) 


(A. 4) 


(A.  5) 


(A. 6) 

(A.  7) 


?  is  an  integral  functional  of  V  and  T 


where 

U  ■  local  fluid  velocity 
t  ■  time 

R  "  radius 

P  “  pressure 

0  *  arUfida'  viscosity 

m  “  mass 

c  ■  an  arbitrary  constant  near  unity 
P0  *  Initial  density 


(A.  8) 
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V  ■  specific  volume  (reciprocal  density) 

5?  m  radiative  net  flux  at  R 

E  ■  Internal  energy 

Quite  generally,  the  mathematical  formulation  of  the  problem  may  be 
characterized  as  an  initial  value  problem  whose  solution  consists  of  a 
time-wise  and  mass-wise  integration  of  a  well  defined  set  of  hyperbolic 
partial  differential  and  partial  lntegro-differential  equations . 

The  solution  of  these  equations  is  carried  out  by  numerical  techniques 
in  which  values  of  the  dependent  variables  are  determined  in  terms  of  the 
two  independent  variables  (the  time  and  lagrangian  zone  mass)  by  means  of 
finite  difference  equations  which  are  used  to  represent  Eqs.  (A.  1)  -  (A. 8). 

For  purposes  of  numerical  computation,  the  fireball  configuration  is 
represented  by  a  series  of  concentric,  contiguous,  spherical  mass  shells. 

The  mass  of  the  k  zone  is  designated  by  m^  (gm/cm  ).  Since  the  mass 
zones  retain  their  identity  throughout  the  time-wise  development  of  the 
configuration,  the  zone  index  k  and  the  time  t  (seconds)  are  convenient 
choices  for  the  independent  variables. 

Integration  of  the  set  of  8  equations  (Eqs.  (A,  1)  -•  (A. 8))  then  deter¬ 
mines  the  values  of  the  8  dependent  variables  as  functions  of  k  and  t  . 
U(k,t)  (cm  sec  S  and  R(k,t)  (cm)  are  used  to  specify  the  instantaneous 
values  of  the  interface  velocity  and  radius  of  the  outer  surface  of  the  kth 
mass  shell.  i?(k,t)  (ergs  cm  sec  )  is  used  to  specify  the  instantaneous 
value  of  the  net  radiative  flux  at  the  outer  boundary  of  the  kth  mass  zone. 
P(k,t)  (dynes  cm-2),  Q(k,t)  (dynes  cm-2),  V(k,t)  (cm3  gm-1),  T(k,t) 

(°K),  E(k,t)  (ergs  gm~ *)  are  used  to  represent  the  instantaneous  values  of 
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the  pressure,  artificial  viscous  pres  sure ,  specific  volume  (reciprocal 
density),  temperature  and  internal  energy  of  the  mass  zone  . 

In  a  purely  hydrodynamic  problem  without  radiative  transfer,  it  is 
the  standard  practice  to  reckon  the  thermodynamic  properties  of  a  zone 
(i.e.:  pressure,  internal  energy,  density,  temperature)  as  constant 
average  values  over  each  zone.  These  values  are  also  considered  to 
be  the  central  values  of  these  variables  at  the  geometrical  zone  centers. 
Particle  velocities  are  reckoned  at  the  zone  interfaces;  the  interface 
density  and  pressure  gradient  are  formulated  in  terms  of  the  values  at 
the  zone  centers.  The  zoning  mesh  must  be  chosen  fine  enough  so  that 
the  variation  in  properties  from  zone  to  zone  is  small  enough  to  insure 
that  these  average  values  are  meaningful. 

In  a  problem  which  also  Includes  radiative  transfer,  the  above 
restrictions  must  also  be  met.  Zone  sizes  in  a  problem  including  radiation 
will  generally  be  smaller  than  the  zone  sizes  required  by  hydrodynamics 
alone.  The  addition  of  radiative  transfer  to  the  problem  will,  in  general, 
add  further  restrictions . 

If  the  temperature  is  taken  as  constant  across  each  zone,  temperature 
discontinuities  will  occur  at  the  zone  Interfaces.  Radiative  variables  like 
T*  will  have  even  greater  discontinuities.  More  detailed  examination 
indicates  that  the  temperature  and  its  spatial  derivatives  should  be 
continuous  at  the  zone  interfaces.  Thus,  consistent  with  the  expansion 
used  in  Cq.  (2.5*9),  the  source  function  B  is  taken  as  linear  between 
zone  centers.  Then  the  discontinuous  spatial  derivatives  of  the  source 
fun.  Ion  which  occur  at  ihe  zone  centers  do  not  appear  in  the  formulation. 

In  a  more  general  formulation,  a  higher  order  polynomial  could  be  used  to 
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fit  the  source  function  through  the  cone  centers ,  but  numerical  experience 
has  indicated  such  a  procedure  resulted  in  only  minor  improvement  the 
computations* 

The  central  zone  temperature  T  is  used  as  the  average  over  the 
zone  for  purposes  of  computing  average  zone  pressures,  internal  energies, 
and  is  used  also  in  the  Z,  A,  and  W  computations  (Eqs.  (2.5-13) 
through  (2.5-15)).  This  is  done  primarily  for  purposes  of  convenience, 
but  can  be  at  least  partially  Justified.  In  regions  of  small  temperature 
gradient,  no  problem  occurs  since  the  central  and  average  zone  tempera¬ 
tures  are  nearly  Identical.  In  regions  of  large  temperature  gradients,  the 
"average  value"  of  the  temperature  is  poorly  defined  in  terms  of  the  rapidly 
varying  radiative  variables ,  and  it  is  preferable  to  keep  the  problem  well 
poised  hydrodynamlcally. 

The  specific  volume  V  is  taken  as  having  a  linear  variation 
across  each  zone.  The  values  of  V  at  the  zone  centers  and  zone 
interfaces  are  then  uniquely  defined  and  afford  no  further  difficulty. 

The  Z,  A,  and  W  functions  are  then  computed  using  the  average 
zone  temperature  T  and  specific  volume  V  .  Use  of  the  average 
specific  volume  is  Justified  since  these  functions  show  a  relatively  weak 
density  dependence.'  Neglecting  the  variations  in  temperature  across 
the  zone  causes  only  relatively  small  errors  in  the  high  temperature  inner 
fireball  regions  since  these  functions  show  only  a  weak  dependence  upon 
temperature.  In  the  low  temperature  regions ,  the  Z,  A,  and  W 
functions  vary  about  as  the  ninth  power  of  the  temperature.  Even  with 
extremely  fine  zoning,  large  temperature  gradients  occur  across  each 
zone,  and  the  Z,  A,  and  W  functions  would  be  ill  defined  in  terms 
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of  any  average  temperature  no  matter  how  the  average  be  defined.  But 
the  emission  from  these  low  temperature  regions  is  small  compared  to 
the  emission  from  the  high  temperature  regions  further  inside,  and  these 
layers  act  primarily  as  a  selective  absorber  for  radiation  from  larger 
optical  depths.  Hence  the  2*  function  must  be  known  with  some 
accuracy,  but  small  errors  In  the  A  functiuu,  originating  because  of 
the  use  of  the  average  aone  temperature,  can  be  tolerated. 

The  Z*  function,  however,  has  peculiar  properties  in  the  low 
temperature  region  which  allow  Its  values  to  be  obtained  with  sufficient 
accuracy.  As  discussed  In  Chapter  8,  the  spectral  absorption  coefficient 
varies  extremely  rapidly  ith  wavelength  so  that  the  spectrum  is  effective,  y 
divided  at  some  wavelength  Into  absorbed  and  transmitted  fractions.  This 
transition  wavelength,  however,  depends  only  weakly  on  the  zone  tempera¬ 
ture,  and  hence  the  average  zone  temperature  will  again  suffice. 

It  should  always  be  born  4~  mind  that  these  numerical  approximations 
all  improve  as  the  zone  size  is  decreased  and  can,  in  principle  be  made 
accurate  to  any  desired  precision.  In  practice,  however,  the  fineness  of 
the  zone  mesh  is  limited  by  the  A  cf  computation.  Skill  is  thus  required 
to  accomplish  a  large  computational  program  within  a  limited  budget.  One 
tries  to  test  each  situation  for  sensitivity  to  zone  sizes  and  achieve  a 
compromise  between  economy  of  computation  and  accurate  representation  of 
the  physics. 

For  purposes  of  carrying  out  the  integration  procedure  by  numerical 
methods,  the  basic  equations  (Eqs.  (A.  1)  -  (A. 8))  are  replaced  by  a  set 
of  centered  finite  difference  equations  as  follows.  The  notation  and 
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centering  can  best  be  seen  by  reference  to  Pig.  A-l. 
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(A.  14) 


C/2  -  E(^-l/2.  TJ-l/j) 

Pk- 1/2  *  P(Vk-l/2,  1  k  - 1/2) 

**1 . «■ 

Cq.  (A. 9)  expresses  the  conservation  oi  momentum  and  is  centered 
over  the  grid  point  (n.k). 

Eq.  (A .  10)  simply  expresses  the  definition  of  velocity  and  is 
centered  over  the  grid  point  Or*  1/2  ,k). 

The  conservation  of  mass*  expressed  by  Eq.  (A.  11),  is  centered 
over  the  grid  point  (n+l/2  ,  k-l/2,  i.e.  over  q£*[/2  * 

The  difference  expression  (Eq.  (A.  12))  for  the  artificial  viscosity 
is  centered  on  the  grid  location  (n+l/2  ,  k-l/2)  except  for  the  R^+1 
factor.  The  artificial  viscosity  is  thus  correctly  centered  for  use  in  the 
energy  Eq.  (A.  13),  hut  lags  a  half  time  step  behind  in  the  equation  of 
motion  (Eq.  (A.9). 

The  energy  equation  (Eq.  (A .  13))  is  centered  over  the  grid  location 
(n+l/2  ,  k-l/2)  and  constitutes  an  implicit  expression  to  determine  the 
local  temperature  *{^1/2  • 

Eqs.  (A.  14)  and  (A.  15)  are  equations  of  condition  rather  than  finite 
difference  equations,  and  express  the  equations  of  state  for  the  fluid  at 
the  location  (n+ 1 ,  k-l/2)  in  terms  of  \/2  anc*  ^-1/2  * 


(A.  15) 


(A.  lb) 
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Eq.  (A.  16),  which  Is  written  above  only  in  symbolic  form,  expresses 
that  the  local  net  flux  isi  an  instantaneous  integral  functional  of  the 

temperatures  and  densities  of  all  of  the  L  zones  in  the  configuration.  The 
set  of  Eqs.  (A. 9)  -  (A.  16)  thus  constitutes  a  set  of  8L  equations  in  6L 
unknowns . 

The  following  set  of  11  auxiliary  equations  are  used  to  evaluate 
Eq.  (A.  16): 


20: 


n+l 

k-l/2 


-  zo^CU' 


i|«n+  1  1 

*k-l/2#  TRk-l/2 


<-\/2  ■  <U-  *"*) 


K-U  * XH| 


a- n+l 
At  k-l/2 


•n+l 
Tt- 1/2 


BC 


(^n+1  Tn+1  n+l) 
k-1/2'  Tk- 1/2 '  1  I 


CA.  17) 


(A.  18) 


(A.  19) 


(A.  20) 


(A. 21) 


(A.  22) 
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(A .  2j) 


uin+l  _  ,  _  .n+1  _  «n*l  An+1 

"'ll- 1/2  1  \-l/2  ic- 1/2  flTk-l/2 


(A.  24) 


♦  »<'  (>  -  c\)  -  2sfl  *&{  <a-27) 


3jJ41  ■  roj41  -  FijJ41  (a. 2a) 

where  a  *  5.67  x  icf5  Is  the  Stephan- Boltzmann  constant,  and  TR  is 
the  temperature  used  to  specify  the  spectral  character  of  the  radiation 
incident  upon  the  zone  from  regions  of  smaller  radius. 


The  analytic  axpraasions  for  Cqa.  (A.  18)  and  (A.  19)  are  not  given 
explicitly  in  the  written  text,  but  are  available  in  the  FIREBALL  code 
listing  which  follows. 

In  carrying  out  the  numerical  Integration  scheme,  it  is  assumed 
that  the  initial  values  of  R,  T,  V,  E,  P,  U,  Q,  and  ,7  are  known  at 
the  initial  time  tn  for  all  values  of  k  .  The  difference  equations 
(Eqs.  (A. 9)  -  (A. 28))  are  then  used  to  determine  values  for  these  variables 
at  t  a  t  +  At  for  all  values  of  k  .  The  procedure  is  repeated  as 
n  is  Increased  until  the  desired  period  of  time  has  been  covered  by  the 
Integration. 

The  initial  values  of  Q  and  U  are  chosen  at  tn  rather  than 

l/2 

t  '  in  the  above  procedure,  but  little  error  is  introduced  since  the 
Initial  values  may  be  adjusted  accordingly  and  the  time  step  At  may  be 
chosen  as  very  small  on  the  initial  cycle. 

The  actual  input  model  consists  of  a  set  of  R,  U,  T,  and  V 
values  for  each  zone  of  the  configuration.  Initial  values  of  Q,  E,  P, 

Q,  and  3  are  then  found  by  use  of  Eqs.  (A.  12),  (A  .  14),  (A.  IS),  and 
(A.  16)  before  starting  the  first  time  cycle. 

The  set  of  Eqs.  (A. 9)  through  (A .  12)  depend  only  on  the  localized 
properties  of  the  fluid  and  they  can  be  advanced  explicitly  in  space  and 
time,  subject  to  the  limitations  on  the  time  increments  according  to  the 
Courant  criterion  (see  Chapter  2 ) . 

The  set  of  Eqs.  (A.  13)  through  (A. 28)  must  be  solved  simultaneously 
for  all  of  the  L  zones  in  the  configuration  because  of  the  linkage  between 
distant  zones  caused  by  the  relative  flux.  Since  the  advanced  values 


rv^  1 

Vk-l/2  of  the  sPeoiflc  volumes  are  known  by  advancing  £q.  (A.  11) 

n4  1 

explicitly,  a  set  of  trial  temperatures  1*1.  ...  1-  are 

estimated,  substituted  into  the  £qs.  (A.  13)  -  (A. 26),  and  a  Newton- 
Raphson  iteration  scheti  o  is  then  used  to  adjust  the  ->stimated  values 
of  temperature  until  Eq.  (A.  13)  is  satisfied  to  a  predetermined  accuracy. 

The  iteration  is  carried  out  by  numerical  methods.  The  equation 
of  state  derivative j  ,  at  fixed  V  ,  are  carried  out  by  raising  and  lowering 
the  temperature  2%  from  its  trial  value,  e.g.t 


A£  «.  EfV.  1.02T)  -  Eft*.  0.98T) 
AT  1.02T-0.98T 


(A.  29) 


The  derivatives  of  the  radiative  quantities  are  computed  by  a 
ripple  zone  technique  in  which  the  temperature  of  a  single  zone  is  rafted 
2%,  the  set  of  Eqs.  (A  .  17)  -  (A. 26)  is  evaluated  and  the  desired  derivatives 
formed,  and  the  displaced  temperature  is  then  returned  to  its  undisplaced 
value.  This  procedure  is  repeated  for  each  zone  in  the  configuration  until 
all  the  desired  derivatives  are  available.  In  practice,  radiative  derivatives 
for  zones  more  than  2  zones  distant  are  small,  so  that  only  a  5  zone  set  c  f 
derivatives  is  carried.  Neglect  of  the  more  distant  derivatives  does  not 
constitute  a  neglect  of  radiative  transfer  between  distant  zones;  their 
neglect  only  Influences  rate  of  converger;  e  of  the  iteration  procedure. 

For  a  system  of  L  zones,  the  iteration  procedure  then  results  in  L 
linear  algebraic  equations  in  L  unknown  temperature  increments,  each 
equation  consisting  of  a  set  of  terms  involving  5  of  the  unknowns.  This 
array  is  then  solved  by  direct  elimination  and  back  substitution.  The 
temperature  Increments  are  then  used  to  adjust  the  trial  values  of 
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temperature  until  ell  temperature  increments  for  all  zones  are  simul¬ 
taneously  less  than  10%  of  th*ir  respective  zone  temperatures. 

The  FIREBALL  code  is  written  in  a  programming  language  called 
FORTRAN;  the  particular  vintage  is  known  as  FORTRAN  II,  Version  2. 

The  various  types  of  FORTRAN  currently  in  use  differ  from  each  other 
only  in  minor  details.  This  particular  version  was  selected  primarily 
because  it  has  been  in  use  for  a  number  of  years,  and  has  achieved  a 
measure  of  stability  and  reliability  not  to  be  found  in  the  more  recent 
efforts  of  the  computer  industry, 

The  FORTRAN  language  little  resembles  the  machine  language  coding 
of  a  decade  ago,  and  its  resemblance  to  ordinary  alqebra  is  so  close  that 
the  average  physicist  or  engineer  can  learn  to  read  FORTRAN  with  a  very 
minimum  of  effort.  This  allows  one  to  communicate  the  solution  of  a 
complicated  theoretical  calculation  to  his  fellow  scientists  in  complete 
detail  and  complete  scientific  honesty. 

Section  A.  2  Is  devoted  to  a  brief  discussion  of  how  to  read  FORTRAN 
and  is  designed  for  the  scientist  who  is  not  familiar  with  this  type  of 
language.  The  remainder  of  Appendix  A  is  devoted  tc  the  scientific  aspects 
of  the  FIREBALL  code  and  is  intended  to  be  independent  of  the  language  details . 
Readers  not  interest  in  great  detail  may  thus  skip  over  Section  A. 2,  while 
those  interested  In  such  detail  will  find  this  section  helpful  in  reading  the 
code  itself  which  is  listed  in  full.  The  four  digit  numbers  which  appear  .in 
parenthesis  throughout  this  appendix,  e.g.  (0136),  refer  to  serial  numbers 
(line  numbers)  in  the  code  listing. 
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A .  2  Reading  FORTRAN 
Variables  and  Constants 


Algebraic  variables  are  represented  by  symbols  as  in  ordinary  algebra 
and  may  take  on  values  from  about  +1,7x10  to  +1.7x10  ,  and 

zero.  Arithmetic  is  accurate  to  8  significant  figures. 

Variable  names  must  consist  of  1  to  6  characters,  the  first  of  which 
must  be  a  letter  of  the  alphabet  other  than  I,  J,  K,  L,  M,  or  N. 

Examples:  YIELD,  X,  A47,  FI,  DIVFAR 

Integer  Vartflfrlflg. 

Integers  are  used  in  subscripts,  counting,  indices,  and  sometimes 
in  exponents .  They  are  represented  by  symbols  of  1  to  6  characters  and 
must  begin  with  I,  J,  K,  L,  M,  or  N. 

Examples:  N,  J63,  MCOUNT 

SMbBortets 

Variables  may  have  up  to  throe  subscripts,  but  no  superscripts.  The 
subscripts  may  be  positive  integers,  but  not  zero. 

Examples:  X(K+1),  Z(J,N),  BB(I,J,K) 

Artttunatte.  fiEsaagns 

The  symbols  for  standard  arithmetic  operations  are  little  different 
from  those  used  in  ordinary  algebra: 
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X  +  Y  means  add  X  and  Y 

X  -  Y  means  subtract  Y  from  X 

X  *  Y  means  multiply  X  by  Y 

X  /  Y  means  divide  X  by  Y 

Normal  algebraic  sign  conventions  are  used.  A  double  asterisk  is  used  for 
exponentiation,  l.e.: 

2 

R  **  2  means  R 
R  **  BETA  means  Re 
Q  **  0.5  means  Q1/2 

Operations  are  carried  out  in  the  preferential  order  of  first  exponentiation, 
then  multiplication  and  division  .  and  finally  addition  and  subtraction. 

Equal  Sian 

The  equal  sign  has  a  meaning  slightly  different  from  algebraic  usage, 

e.g.: 

XYIELD  •  XY1ELD  +  (A  **  2)  -  B 

means  carry  out  the  algebraic  operations  to  the  right  of  the  equal  sign  and 
store  the  result  of  this  computation  as  the  new  value  of  XYIELD  .  Note 
that  the  previous  value  of  XYIELD  is  first  used,  then  destroyed  and 
replaced . 


Parenthesis 


Parenthesis  may  be  used  to  group  information,  indicate  subscripts  , 
or  Indicate  the  argument  of  a  function. 

Examples: 

(MB)*C  means  add  A  and  B,  then  multiply  by  C 
X(K+1)  means  K+l  is  a  subscript  of  the  variable  X 
SINFtX)  means  X  is  the  argument  of  the  sine  function 

Usually  parenthesis  will  be  used  for  grouping;  subscripts  can  be 
recognized  because  tney  are  integers,  i.e. ,  I,  J,  K,  etc.;  functions 
can  usually  be  recognized  by  the  letter  F  and  the  lack  of  an  arithmetic 
operation  symbol. 

Library  Functions 

Certain  library  functions  may  be  called  in  by  name  in  order  to  save 
programming  labor. 

Examples: 

EXPF(X)  -  ex 

SgRTF(Y)  -  /Y 

LOGF(Z)  -  log  Z 
0 

Program  Flow 

Statements  are  processed  by  the  computer  in  order  of  occurrence 
unless  other  directions  are  provided.  Formula  numbers,  which  occur  in 
the  first  5  spaces  to  the  left,  are  not  required  unless  control  is  to  be 
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switched  to  that  particular  formula.  The  most  common  control  commands  nrer 

GO  TO  436  sends  control  to  statement  436 

IF(X(K)  -  3.0)  450,  500,  750  tells  the  computer  to  test 

the  sign  of  the  expression 
in  parenthesis  (X-3)  and  to 
transfer  control  to  statement 
450  if  negative,  500  if  zero, 

750  if  positive. 

The  IF  statement  provides  the  only  means  by  which  the  computer 
makes  Judgments. 

Subroutines 

Complete  subprograms,  designed  to  accomplish  a  particular  set  of 
computations  many  times,  can  be  used.  For  example: 

CALL  STATE 

appearing  in  a  program  will  send  the  computer  to  subroutine  STATE,  the 
set  of  computations  indicated  in  that  subroutine  will  be  carried  out,  and 
control  will  return  to  the  main  program  at  the  statement  following  CALL 
STATE. 

Repetitive  Operations 

To  save  labor  in  programming ,  the  DO  statement  may  be  used: 

DO  100  K-l,  95 
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instructs  the  computer  to  carry  out  all  instructions  following  this  statement 
until  statement  100  is  reached.  Do  this  first  with  K  equal  to  1  ;  repeat 
this  process,  increasing  K  by  unity  each  time,  making  the  final  pass  with 
K  equal  to  95. 

This  statement  can  be  used  to  compute  repetitive  formulae,  or  it 
can  be  used  to  select  values  from  an  array  of  numbers.  For  example: 


TESTV  -  1.6  E+02 

DO  50  10-1.  100 

IF(X{K)  -  TESTV)  50 

10  XCRIT  -  X(K) 

N  «  K 
GO  TO  70 
50  CONTINUE 

XCRIT  -  0.0 

70  YSTART  -  XCRI  T  +  DELTAY 


means  set  TESTV  *  1.6  x  10 

50.  10 

sets  XCRIT  equal  to  X(K) 

retain  the  value  of  K  as  the  symbol  N 

exit  from  the  E)0  statement 

a  dummy  statement 

set  XCRIT  to  zero 

the  next  step  in  the  computation 


selects  the  first  X  value  that  is  greater  than  160  out  of  a  list  of  100 

values  of  X,  starting  at  X(  1)  . . X(1Q0)  .  If  no  such  value  is  found, 

then  XCRIT  is  set  equal  to  zero. 

The  above  material  has  been  brief  and  oversimplified,  but  should 
enable  those  unfamiliar  with  FORTRAN  to  decipher  formulae  from  a  program 
listing  and  to  follow  the  scheme  of  computation.  Additional  help  can 
usually  be  obtained  from  programmers  if  additional  questions  of  interpre¬ 
tation  should  arise.  Books  on  FORTRAN  are  available,  but  none  are 
recommended . 
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A.  3  The  computational  scheme 

The  general  computational  scheme  is  cyclic  in  nature ,  each  completed 
cycle  representing  an  advance  in  the  time  variable. 

The  method  of  computation  is  illustrated  in  the  schematic  flew  chart. 
Fig.  A-2.  Each  block  in  this  illustration  represents  a  principal  feature 
of  the  computation;  numbers  in  the  upper  left  corner  of  each  block  refer 
to  a  line  number  to  the  far-right  of  each  page  in  the  code  listing. 

The  computation  begins  by  reading  in  an  initial  configuration  from 
data  cards.  The  configuration  consists  essentially  of  the  initial  density, 
temperature,  velocity,  and  dimensions  of  each  of  the  100  zones  in  the 
model.  The  data  cards  may  represent  an  initial  configuration,  or  the  data 
might  represent  the  results  of  a  previous  computer  run  on  a  model  that  is 
being  done  in  short  segments. 

If  the  entry  is  a  restart  rather  than  an  initial  start,  a  dummy  subroutine 
rejust  (0693)  is  provided  to  make  minor  changes  in  program  control 
parameters  without  the  need  for  recompiling  the  major  subroutines. 

After  reading  in  the  initial  configuration,  the  data  is  tested  for 
obvious  errors  (0367),  the  equation  of  state  subroutine  (0387),  the  radiative 
properties  subroutine  (0389),  and  finally  the  flux  subroutine  (0410)  are 
used  to  complete  the  details  of  the  initial  configuration.  The  computation 
cycle  proper  is  then  initiated  (0402-0405).  The  initial  time,  which  has  been 
modified  (0404)  ,  is  now  restored  to  its  proper  value  (0123). 

A  sequence  is  then  used  to  determine  the  number  of  zones,  out  of 
the  possible  100,  that  are  to  be  used  at  the  present  stage  of  the  computation. 
(0124-0138).  The  number  of  zones  in  use  is  continuously  adjusted  during 
the  computation  to  avoid  unnecessary  computation.  When  the  data  is  loaded. 
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zone  100  must  have  the  ambient  temperature  and  density  at  burst  altitude. 
The  code  then  probes  inward  to  a  point  where  the  temperature  is  twnv 
the  ambient  value  or  the  particle  velocity  reaches  1  m  per  second.  The 
number  of  zones  in  use  is  then  arrived  at  by  adding  a  6  zone  safety  factoi 
to  the  result  of  the  above  selection. 

The  next  sequence  (0139-0162)  selects  the  times  at  which  the  data 
printout  routine  (0833)  is  called,  selects  the  magnetic  tapes  to  be  used 
for  the  data,  and  sets  up  the  necessary  parameters  to  integrate  the  total 
energy  lest  by  radiation  between  two  data  printouts,  and  to  find  the  radiant 
power  by  differentiation  of  the  energy  vs  time.  The  data  print-out  routine 
will  be  described  in  detail  in  Section  A. 4.  The  data  printout  routines 
are  one-way  streets  so  far  as  the  main  stream  of  the  computation  is 
concerned.  Data  is  siphoned  off,  but  no  feed  back  into  the  computation 
proper  occurs . 

The  sequence  (0164-0177)  provides  an  emergency  data  saving 
mechanism  for  use  in  case  the  computation  becomes  numerically  unstable. 
In  order  to  provide  an  economical  computation,  the  time  step  used  must 
be  just  below  the  critical  value  prescribed  by  the  various  criteria  which 
will  be  described  in  the  hydrodynamic  routine  (0360).  These  criteria  are 
not  fool-proof,  and  should  the  computation  become  numerically  unstable 
(or  should  the  computer  operator  err)  ,  the  already  completed  computation 
might  be  lost  unless  there  were  a  mechanism  for  restarting.  Once  the 
calculation  has  become  unstable,  the  data  presently  in  the  computer  may 
be  invalid.  The  present  sequence  writes  the  fireball  configuration  on  a 
magnetic  tape  at  the  completion  of  each  50  code  cycles.  Each  time  another 
50  cycles  are  completed,  the  tape  is  rewound  and  the  next  configuration 
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written.  Finally,  at  the  end  of  the  run,  the  last  configuration  remai  n 
on  the  tape.  Is  read  Into  the  computer  (0305),  and  data  cards  are  punched 
(0312).  Should  tnls  data  card  punching  process  fall,  the  tape  Itself  Is 
saved  and  the  cards  can  then  be  pun  hed  directly.  At  the  time  of  termination 
due  to  any  tvpe  of  error,  data  cards  are  then  available  not  more  than  SO 
cycles  back.  On  occasion,  an  instability  may  occur  just  after  a  configuration 
has  been  written  in  the  tape,  in  which  case  the  computation  is  lost.  But 
this  has  a  probability  of  occurrence  of  about  1  chance  in  SO. 

The  next  two  sequences  (0179~02j7)  select  the  rezoning  subroutine 
(0179)  and  the  zone  splitting  subroutine  (022^).  These  sequences  will  ke 
discussed  below  in  Section  A. 5  dealing  with  these  subroutines.  In 
principle,  one  tries  to  remove  fine  zoning  where  it  is  not  needed,  and  to 
create  fine  zoning  when  the  physics  of  the  problem  so  demands.  Use  of 
fine  zoning  throughout  is  not  feasible  because  of  the  increased  computational 
costs  and  also  because  the  computer  can  only  accommodate  a  total  of  100 
zones  at  one  time,  If  the  finest  zoning  in  the  problem  were  used  throughout, 
the  entire  fireball  could  not  be  accommodated.  So  far  as  is  known,  other 
codes  (Brode  and  Whittaker,  private  communications,  1965)  currently 
in  use  are  rezoned  manually  by  visual  inspection.  The  present  sequences 
are  an  attempt  to  carry  out  this  process  automatically  during  the  computation. 

The  sequence  (0259-0264)  provides  for  the  printing  o i  detailed 
diagnostics  at  the  initial  cycle,  the  next  cycle  following,  and  at  one 
selected  by  data  card  Input.  The  diagnostic  routine  (1125)  is  called  for 
this  purpose. 
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A  termination  sequence  Is  provided  (0266-0342)  which  is  used  whenever 
the  computation  is  terminated*  except  in  those  cases  where  the  normal 
course  of  the  computation  is  interupted  by  a  machine  difficulty  or  an 
operator  error.  The  termination  sequence  provides  for  a  final  data  printout 
(0274),  the  printing  of  program  diagnostics  (0273),  the  punching  of  current 
data  cards  (0275-0282)  for  possible  restart  purposes ,  completes,  copies, 
combines,  and  unloads  various  tapes  (0283-0326),  and  punches  data 
cards  containing  the  configurations  from  1  to  50  cycles  prior  to  the 
termination  (0303-0319),  before  completing  the  run  (0343). 

The  series  (0123)  through  (0345)  has  dealt  primarily  with  control 
mechanisms,  rather  than  the  actual  computation,  which  is  resumed  at  (0346). 

In  the  course  of  the  computation  it  is  necessary  to  carry  most  of  the  program 
variables  for  all  mass  tones,  but  only  for  the  current  point  in  time.  A  few 
of  the  variables  must  be  carried  for  all  space  zones,  but  for  two  consecutive 
points  in  time.  For  example,  the  present  value  of  the  specific  volume  for 
zone  K  is  represented  by  the  symbol  V(K),  while  the  specific  volume  from  jne 
time-step  in  arrears,  the  retarded  value,  is  represented  by  VR(K).  As  the 
program  cycles,  the  present  value  becomes  the  new  retarded  value,  and  a 
new  "present"  value  is  computed. 

The  shifting  process ,  in  which  the  retarded  values  are  set  equal  to 
the  present  values,  takes  place  in  the  next  sequence  of  commands  (0346-0356). 
Also  in  this  sequence,  the  present  values  of  the  variables  are  independently 
saved  under  the  symbol  W(K,  0  for  possible  use  in  the  event  that  the  entire 
cycle  requires  restarting.  The  restarting  procedure  is  discussed  at  the  end 
of  this  section. 
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Following  retardation  of  tha  variables ,  a  hydrodynamics  routine 
(0360)  Is  called,  which  will  be  described  in  detail  in  Section  A. 6.  This 
routine  advances  the  velocities,  radii,  specific  volumes,  and  artificial 
viscosities . 

One  of  the  more  important  steps  in  the  program  is  accomplished  by 
a  single  dummy  statement  (0364).  The  first  step  in  solution  of  the  energy 
equation  (Eq.  (A.  13)),  is  the  estimation  of  a  new  trial  temperature  for 
each  sons.  Skillful  selection  of  the  trial  values  will  make  the  iteration 
process  converge  faster  and  thus  spaed  up  the  computation.  However,  in 
an  iteration  process  tha  equation  being  solved  is  never  satisfied  identically, 
and  any  prejudice  used  in  estimating  the  new  temperatures  may  tend  to 
impose  non-random  errors  in  the  final  results.  For  this  reason,  the  old 
values  of  temperature  are  used  as  the  first  estimates  for  the  new  values . 

The  iteration  scheme  Itself  then,  in  a  sense,  becomes  a  basic  part  of  the 
system  of  equations.  As  will  be  discussed  later,  the  iteration  scheme  used 
employs  the  same  set  of  equations  as  are  used  to  represent  the  energy 
equation  itself.  This  procedure  should  tend  to  minimize  any  bias. 

The  iteration  cycle  proper  (0365)  begins  by  testing  the  set  of 
temperatures  for  negative  or  zero  values.  Such  values  are  likely  to  occur 
in  the  event  of  a  numerical  instability,  in  which  case  the  computation  is 
immediately  terminated  through' the  sequence  previously  described. 

In  the  next  sequence  (0371-0387)  the  equation  of  state  subroutine  (1217) 
is  called  on  three  successive  occasions.  This  subroutine  is  discussed  in 
Section  A  .7.  At  this  point  in  the  computation,  the  advanced  values  of 
the  specific  volume  are  known  for  each  zone.  A  trial  set  of  temperatures 
has  been  selected.  The  derivatives  of  the  internal  energy  and  pressure, 
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with  respect  to  temperature,  at  constant  specific  volume,  are  formed  by 
first  increasing  the  temperatures  2%  above  the  trial  values,  passing  through 
the  equation  of  state  to  obtain  energies  and  pressures,  then  repeating  the  process 
after  lowering  the  temperatures  2%  below  the  trial  values .  The  required 
derivatives  are  then  formed  numerically  from  the  above  data  (0384-0385). 

The  temperatures  are  then  returned  to  the  original  trial  values  and  a 
final  pass  through  the  equation  of  state  is  made  to  obtain  trial  values  of 
the  internal  energy  and  pressure  (0387). 

Two  subroutines  are  then  called  to  provide  the  necessary  radiative 
flux  divergences  for  use  in  the  energy  equation.  Subroutine  SWABZ  (0490) 
uses  the  values  of  V,  T,  and  the  dimensions  of  the  zones  to  compute 
values  of  the  SWAB  and  Z  functions  and  is  discussed  in  Section  A.  8.  These 
values  are  used  in  subroutine  FLUXS  (1183)  to  compute  fluxes  and  flux 
divergences  as  described  in  Section  A. 9. 

A  temperature  test  occurs  next  in  the  computation,  but  is  bypassed 
on  the  initial  trial  of  the  energy  equation. 

The  energy  equation  itself  is  then  evaluated  (0415-0424).  A  residue, 
comprising  the  imbalance  of  the  energy  equation  due  to  the  use  of  trial 
temperatures,  is  computed  for  dach  zone  (0422). 

The  te.nperatui  e  Iteration  of  the  energy  equation  then  commences  ' 

(0425).  Two  types  of  iteration  schemes  can  be  selected.  If  the  configuration 
is  entirely  optically  thin  (i.e.  the  total  optical  depth  from  the  outer  edge 
to  the  center  is  less  than  a  given  value)  a  non-radlative  iteration  (0429) 
can  be  used.  Radiative  transport  is  still  included  in  the  energy  balance, 
but  explicit  relative  derivatives  do  not  appear  in  the  Iteration  scheme.  If 
this  alternative  is  selected,  the  temperature  Increments  for  each  zone  are 
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computed  immediately  (0431). 

When  radiation  is  included  in  the  deration  (0439) ,  the  radiative  and 
hydrodynamic  derivatives  are  carried  only  in  the  inner  zones,  while  only 
hydrodynamic  derivatives  are  carried  in  the  outer  zones. 

In  the  radiative  iteration  procedure,  subroutine  COEFF  (139 5)  is 
called  to  form  the  required  coefficients  for  the  solution  (0447)  for  the 
temperature  increments.  This  subroutine  is  described  in  Section  A  .  10. 

Once  the  full  set  of  proposed  temperature  increments  is  known,  they 
are  tested  (0457)  to  see  if  they  are  within  arbitrary  bounds  which  have 
been  developed  by  experience.  Should  these  bounds  be  exceeded,  there 
is  a  high  probability  that  the  time  increment  used  by  the  computer  was  too 
large.  Program  diagnostics  are  then  printed,  the  variables  are  restored 
to  their  values  at  the  beginning  of  the  cycle,  and  the  cycle  is  repeated 
using  a  smaller  time  Increment.  This  recycling  is  allowed  3  times,  after 
which  the  computation  proceeds  even  though  the  test  bounds  were  violated. 
If  the  test  criteria  were  correct,  a  numerical  instability  results ,  and  the 
computation  is  terminated  from  one  of  the  several  points  in  the  program 
where  the  instability  can  be  positively  detected.  An  instability  does 
not  always  occur,  however,  since  the  tests  are  not  infallible. 

Usually  a  recycling  occurs  when  a  time  Increment  just  slightly  too 
large  has  been  used  and  a  single  recycle  cures  the  difficulty.  Use  of  this 
stability  check  "after  the  fact"  enables  the  various  time  step  selection 
criteria  to  be  pushed  close  to  their  limits.  Use  of  large  safety  factors 
in  these  criteria,  as  is  the  common  practice,  would  be  prohibitive  as 
the  total  computation  time  would  be  seriously  increased.  If  the  proposed 
temperature  increments  satisfy  the  stability  tests,  they  are  accepted  and 


107 


the  trial  temperatures  are  modified  accordingly  (048S). 

These  new  temperatures  become  a  new  set  of  trial  temperatures 
and  the  iteration  c'ycla  is  begun  again  (0367).  The  iteration  convergence 
test  (0409)  Is  made  well  Into  the  second  and  subsequent  passes  through 
the  iteration  sequence.  Should  the  test  be  satisfied,  then  the  best  values 
of  internal  energy,  pressure,  and  fluxes,  etc.,  are  available  as  the  cycle 
Is  completed.  If  the  test  is  failed,  the  iteration  cycle  then  progresses  with 
all  the  necessary  data.  The  code  as  written  performs  some  unnecessary 
computations  In  that  the  state  derivatives  are  computed  but  not  used  if 
the  convergence  test  Is  satisfied.  This  technique  was  a  compromise 
between  several  alternatives  and  was  adopted  because  it  required  less 
computer  storage  at  e  period  when  the  program  was  storage  limited. 

Ihe  actual  convergence  test  used  (0408)  consisted  of  the  requirement 
that  the  temperature  increments  for  all  zones  be  simultaneously  less  than 
10%  of  their  respective  zone  temperatures.  This  method  proved  to  be 
more  efficient  than  several  other  methods  tried  which  were  based  directly 
on  the  degree  of  Imbalance  of  the  energy  equation. 

The  number  of  passes  through  the  iteration  sequence  is  limited  to 
3  on  any  one  code  cycle  (0416).  It  is  a  characteristic  of  the  Newton  method 
that  convergence  takas  place  very  rapidly  or  not  at  ail,  and  that  on  odd 
number  of  attempts  is  usually  better  than  an  even  number.  Should  an 
abnormally  large  temperature  increment  occur  after  3  iterations ,  a 
convergence  check  at  the  beginning  of  subroutine  HYDRO  detects  this 
and  forces  e  smaller  time  step  on  the  following  cycle.  This  test  differs 
from  the  main  program  stability  check  in  that  it  is  applied  only  after 
3  full  iterations  and  uses  stricter  criteria. 


A .  4  Data  printout  routines 

The  data  printout  sequence  is  contained  in  subroutine  CGSPO  (0833). 

This  routine  samples  the  data  from  the  computation  proper,  generates 
additional  parameters  of  interest  from  this  information,  and  produces  twt 
magnetic  tapes:  the  main  listing  and  the  user  tape. 

The  general  problem  of  determining  observables  from  a  list  of 
temperature  and  density  values  is  a  difficult  one.  Many  of  the  "observable" 
parameters  generated  by  the  printout  routine  are  extremely  crude  and  must 
be  used  with  extreme  caution.  These  "observables"  have  been  printed 
below  the  main  tables  of  data  end  include  the  shock  radius,  fireball 
radius,  effective  temperature,  color  temperature,  and  the  spectral 
distributions.  For  example,  the  code  defines  the  fireball  radius  (FBR) 
as  the  radius  at  which  the  optical  depth  is  0.44  as  measured  from  outside 
the  fireball.  This  simple  definition  is  easy  to  code  and  is  useful  radius 
to  have  printed  out.  But  for  comparison  with  an  experimental  radius 
measured  photographically,  a  complete  brightness  profile  Is  required  for 
comparison  with  the  corresponding  densitometer  traces  from  the  experiment. 

The  routine  begins  by  testing  for  temperature  inversions  (0664)  and 
causes  program  diagnostics  to  be  printed  if  such  inversions  are  found. 
Placement  of  this  test  in  the  printout  routine  causes  the  diagnostics  to 
coincide  in  time  with  the  data  printout  so  that  any  unusual  features  seen  in  the 
listings  may  be  studied  in  detail. 

In  the  sequence  (0868-0874)  a  number  of  variables  to  be  printed  out 
are  set  up.  This  sequence  works  in  conjunction  with  the  sequence  (0139- 
0162)  in  the  main  program.  The  variable  CN(LZ)  is  the  average  time  step 
between  two  successive  printouts.  The  variable  SAVE1  is  the  value  of 
the  last  time  step  before  the  printout.  The  total  power  being  radiated 
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in  watts  (POWER) ,  the  color  temperature  (TOOL) ,  and  the  effective 
temperature  (TEFF)  all  depend  upon  the  value  of  the  total  flux  (TFLUX) 
which  is  the  power  being  radiated  in  ergs*  TFLUX  is  computed  in  the 
main  program  (0155)*  The  instantaneous  total  flux  at  the  end  of  each 
cycle  is  called  FLOX  and  is  summed  continuously  (0139)  throughout  the 
computation  and  called  FLEX.  The  average  power  TFLUX  over  the  time 
interval  between  printouts  is  obtained  by  numerical  differentiation  of 
FLEX  (0155).  This  method  gives  more  representative  results  for  the 
power  output  since  the  instantaneous  power  tends  to  fluctuate  due  to  the 
finite  zoning  of  the  model.  The  instantaneous  total  power  corresponding 
to  the  time  of  a  given  printout  can  easily  be  obtained  since  the  radius 
and  outward  flux  at  the  last  zone  are  available  from  the  printout. 

The  code  definition  of  the  effective  temperature  (TEFF)  is  defined 
(0874)  from 

TFLUX  -  4rr  (FBR)2  c(TEFF)4 

where  a  m  5.67  x  10  ®  ■  Stephan's  Constant. 

It  is  the  temperature  of  a  black  body  radiation  having  the  some  size 
as  the  fireball  and  which  emits  the  same  total  power.  This  temperature 
is  a  minimum  estimate  of  the  fireball  "surface"  temperature  since  the 
fireball  does  not  have  an  emisslvity  of  unity. 

The  code  definition  of  (0873)  color  temperature  (TOOL)  uses  an 
estimate  of  the  total  emisslvity  and  yields  a  higher  temperature  which 
can  be  used  to  describe  the  spectral  character  of  the  radiation  escaping 
from  the  fireball.  The  emisslvity  estimate  is  based  on  the  Z*  function 
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for  the  zone  having  the  largest  X „  and  the  radiation  temperature  for 
that  same  zone  (0689). 

After  the  fireball  becomes  transparent  in  the  continuum,  the  effective 
and  color  temperatures  are  no  longer  defined  since  their  definitions 
Involve  the  fireball  radius,  and  by  the  code's  definition,  FBR*0  under 
these  circumstances* 

At  this  point  (0875),  the  printout  routine  calls  subroutine  PHGTOG 
(1061).  This  routine  oomputes  an  estimate  of  the  photographic  brightness 
as  a  function  of  radius.  Using  an  approximate  fit  (1073)  to  the  absorption 
coefficient  for  the  "photographic"  region  of  the  spectrum,  and  a  Planck 
function  (1063),  the  emitted  Intensity  is  calculated  for  chord  rays  which 
are  tangent  to  the  mid-point  of  each  mass  zone.  Since  the  spectral  band 
width  of  the  photographic  region  is  unspecified,  only  relative  brightness 
values  are  obtained.  Tha  brightness  scale,  however,  remains  fixed 
throughout  the  entire  computation.  It  Is  clear  that  only  an  estimate  can 
be  obtained  from  this  computation  since  the  absorption  coefficient  is  not 
independent  of  wavelength  across  the  photographic  region  of  the  spectrum, 
and  also  because  the  appropriate  absorption  coefficient  data  ure  not 
available  at  temperatures  above  20  eV.  The  data  is  useful,  however,  in 
making  comparisons  with  experimental  results  and  In  finding  the  gross 
brightness  variations  across  the  fireball. 

The  CGSPO  routine  next  makes  an  estimate  of  the  spectral  distribution 
of  the  total  radiation  emitted  by  the  fireball.  The  code  decides  (0877) 
whether  the  fireball  is  optically  thick  or  is  transparent.  If  the  fireball 
Is  transparent  (0878),  no  realistic  estimate  of  the  spectral  distribution 
can  be  made  since  the  spectrum  consists  of  emission  lines  and  a  weak 


continuum.  An  sxtremaly  crude  estimate  of  the  "visible  power" 
(4000-7000)1)  can  be  made  by  noting  that  fireballs  tend  to  form  an 
Isothermal  region  at  these  late  times.  Most  of  the  emitted  radiation 
must  come  from  this  isothermal  region  since  It  is  the  hottest  part  of 
the  fireball.  These  isothermal  region  temperatures  range  from  9500°K 
down  to  S00C°K  as  the  transparent  fireball  cools.  If  It  is  assumed  that 
the  envelope  of  the  emitted  spectrum  crudely  approximates  a  Planckian 
distribution,  then  37  ±  3%  of  the  radiation  will  fall  in  the  "visible"  region 
of  the  spectrum  over  this  entire  range  of  temperatures.  Hence,  for  the 
transparent  case,  the  visible  power  (P47)  is  taken  as  37%  of  the  total 
power  (0878). 

If  the  fireball  is  optically  thick  (C888),  then  the  color  temperature  is 


used  as  a  basis  for  division  of  the  total  power  into  broad  spectral  bands 

(0889-0939).  The  formula  for  the  Z+  function,  which  very  nearly  approximates 

the  fractional  Planck  function  in  the  visible  and  IR  spectrum,  was  used  in 

00 

place  of  an  accurate  fit  to  J  8^  d\  as  an  analytic  fit  to  this  integral  was 
not  know  to  be  readily  available.  The  accuracy  so  achieved  is  probably 
better  than  the  physics  of  the  spectral  estimation  process.  The  overall 
results  are  of  a  quality  comparable  to  those  achieved  by  assuming  the 
sun  to  be  a  6QQ0°K  black  body. 

The  next  sequence  (0944-0963)  performs  an  energy  check  by  summing 
the  internal  and  kinetic  energy  of  the  current  configuration.  The  sequence 
computes  the  internal  energy  and  the  kinetic  energy  zone  by  zone,  and 
also  the  internal  energy  of  the  volume  of  space  currently  occupied  by  the 
configuration  if  there  had  been  no  detonation.  This  "ambient*  energy  of 
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the  undisturbed  air  constitutes  a  significant  part  of  the  total  energy  of 
the  configuration,  particularly  at  late  times  when  the  radius  of  the 
configuration  is  large.  It  must  be  taken  Into  account  in  studying  the 
energetics  of  the  model. 

The  code  has  no  built-in  method  of  forcing  energy  conservation. 

The  energy  check  sequence  is  simply  an  after-the-fact  sampling  to  see 
if  energy  has  been  conserved.  If  the  difference  equations  do  in  fact 
represent  the  basic  conservation  equations,  then  mass,  energy,  and 
momentum  will  automatically  be  conserved. 

The  energy  accounting  at  any  one  moment  can  be  verified  by  adding 
the  present  model  energy  due  to  the  detonation  and  the  thermal  losses  up  to 
the  given  moment.  The  quantities  TOT  ES,  EAMB  and  TYIELD  are  printed 
out  and  are  the  appropriate  numbers  to  use  for  this  purpose.  TOT  ES  in 
the  printout  is  the  total  energy,  ^DPP(LZ)  in  the  code  (09 59) ^  and  includes 
EAMB,  the  energy  content  of  the  cold  air  before  the  detonation.  TYIELD 
in  the  printout,  ^LEX  in  the  code  (0139)^  is  the  total  energy  radiated 
outward  across  the  outer  boundary  of  the  model  from  the  time  of 
detonation  up  to  the  present  time.  In  general,  the  code  conserves  energy 
to  within  a  fraction  of  1%. 

Sandwiched  in  the  energy  check  routine  are  some  operations  which 
concern  the  printing  out  of  shock  parameters.  (0955-0958).  It  should  be 
remarked  that  the  location  of  shock  fronts  in  a  numerical  configuration  is 
a  difficult  problem  because  of  the  varying  number  of  shocks  and  the  wide 
range  in  their  characteristics.  Many  methods  were  tried,  but  with  limited 
success.  Shocks  are  best  located  by  a  careful  study  of  density  vs.  radius 
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•nd  velocity  va .  radius  graphs* 

The  location  of  a  strong  shock  is  determined  by  the  program  by 
finding  the  largest  value  of  the  artificial  viscous  pressure  ,  with  the 
added  requirement  that  it  be  larger  than  the  ambient  gas  pressure  at 
burst  altitude.  This  shock  radius  is  printed,  but  cannot  be  relied  upon 
without  further  inspection  to  see  if  a  shook  really  exists  at  that  radius. 
This  simple  technique  will  print  out  the  location  of  one  shock,  but  it 
may  not  select  the  seme  shock  on  consecutive  printouts. 

The  sequence  (0978-0991)  simply  changes  units  and  sets  up  certain 
quantities  in  proper  form  for  printing  them  out.  For  example,  (0987) 
computes  the  effective  value  of  "gamma, "  while  (0984)  yields  the 
temperature  in  electron  volts. 

Tv- ■ -j  sequence  (1001-1016)  prints  Out  the  main  listing,  while  the 
sequence  (1022-1029)  prints  out  the  ueer  magnetic  tape  for  use  in 
continuation  computations  such  as  fireball  environmental  studies. 

A.  5  Variation  of  the  number  of  nones  in  use 

It  has  been  said  that  there  are  three  major  problems  to  be  solved  in 
writing  a  fireball  code:  the  basic  physics ,  the  interpretation  of  the 
results,  and  the  use  of  proper  zoning.  Proper  zoning  is  by  far  the  most 
difficult  of  these  problems.  One  simply  cannot  use  a  fine  mesh  throughout 
the  configuration  as  the  computing  time  increases  approximately  as  the 
square  of  the  number  of  zones,  l*e.  halving  a  zone  halves  the  time  step 
and  doubles  the  number  of  computer  operations,  thereby  requiring  four 
times  as  much  computer  time. 


In  th#  other  extreme,  if  the  model  is  represented  by  sones  of  equal 
size,  some  of  the  zones  may  be  too  large  to  properly  represent  the 
gradients  in  physical  properties. 

Consider,  for  example,  a  model  where  the  fireball  has  a  radius  of 

3  -l 

10  cm  and  may  require  zones  of  width  10  cm  at  the  fireball  boundary. 

Since  the  computer  can  accommodate  only  about  100  zones  at  a  time ,  the 

zone  obviously  cannot  be  of  equal  size.  Furthermore,  use  of  a  10”  ^  cm 

zone  in  the  hot  isothermal  region  would  slow  the  computation  by  at  least 

a  factor  of  a  hundred,  and  perhaps  a  factor  of  ten  thousand  or  more. 

Ideally,  new  sones  should  be  created  and  old  zones  combined  in  an 
optimum  manner  basod  on  the  local  physical  conditions  at  each  point  in 
the  configuration.  The  subroutines  SPLIT  (0785  )  and  REZONE  (0701) 

are  provided  for  these  purposes . 

In  the  split  subroutine,  the  zone  indices  for  the  zones  exterior  to  tht 
zone  to  be  split  are  first  shifted  outward  (0789-0808)  to  make  room  for 
the  new  zone. 

The  zone  is  then  split  in  half  mass-wise  (0810-0811).  The  particle 
velocity  at  the  new  interface  is  taken  as  the  square  root  of  the  average  of 
the  squares  of  the  particles  velocity  at  the  boundaries  of  the  original  zone. 
The  temperature  of  the  two  new  zones  are  displaced  10%  above  and  below 
the  temperature  of  the  original  zone,  (0824-0825)  and  a  similar  treatment 
is  accorded  the  internal  energies  (0826-0827). 

This  routine  must  be  considered  as  only  a  crude  beginning  and  much 
work  is  still  being  done  in  developing  new  techniques .  The  present 
routine  can  only  be  used  before  the  gradients  become  large,  and  even  then 
its  use  should  be  discouraged. 
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The  calling  sequence  far  the  SPLIT  subroutine  occurs  in  the  main 
program  (022S-02S7).  Statements  (0228  and  0248)  prevent  a  split  more 
often  than  each  third  eycle.  Statement  (0231)  requires  a  split  at  any  time 
that  a  single  sone  represents  more  than  8%  of  the  radius  of  the  entire 
configuration. 

The  real  purpose  of  zone  splitting  Is  to  provide  very  fine  zones  just 
ahead  of  an  advancing  shock  front  so  that  the  optical  properties  will  not  be 
too  severely  distorted.  The  sequence  (0232-0244)  attempts  to  achieve 
this  goal.  Optical  depth  0.7  from  the  outside  is  located  (0232)  and  this  zone 
is  tested  to  see  if  It  is  being  compressed  (0235).  Then  If  the  particle 
velocity  Is  greater  than  10^  cm/sec  as  is  characteristic  of  optically  thick 
shocks  ,  the  five  zones  immediately  exterior  are  scanned  and  one  per  cycle 
can  be  split,  until  a  certain  minimum  zone  size  is  reached.  Once  the 
shook  has  started,  the  splitting  takas  place  5  zones  ahead  of  the  shock 
until  the  shock  becomes  transparent.  The  minimum  zone  size  has  not  yet 
been  formulated  in  general  terms,  and  must  be  re-programmed  in  for  eacr 
separate  run.  In  the  program  listing  (0240)  a  zona  of  200  cm  or  more  can 
be  split,  resulting  In  a  minimum  zone  size  of  100  cm.  This  is  about 
appropriate  for  a  megaton  burst  at  sea  level. 

As  a  final  insurance  against  undesirable  zone  splitting  at  high  altitudes, 
statement  (0244)  prevents  splitting  at  temperatures  above  6  x  104oK. 

Subroutine  R£ZONE  (0701),  which  combines  two  existing  zones  is  on 
a  much  more  sound  basis,.  Conservation  of  mass  in  the  zone  combining 
process  is  trivial  (073$),  but  the  conservation  of  energy  and  momentum  are 
slightly  more  complicated.  The  internal  energy  of  the  new  zone  is  taken 
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as  a  mass  weighted  average  of  the  Internal  energies  of  the  two  zones  being 
combined  (0733).  The  conservatism  of  kinetic  energy  and  momentum  for  a 
four  zone  system  (0709-0712),  which  is  collapsed  into  a  3  zone  system, 
results  in  two  equations  for  the  two  unknown  particle  velocities  at  the 
inner  and  outer  edges  of  the  combined  zone. 

The  remainder  of  the  subroutine  REZONE  consists  of  a  shifting  of 
indices  for  zones  exterior  to  the  fusion,  and  the  addition  of  a  new  zone 
100  at  the  outer  edge  of  the  configuration* 

While  this  routine  works  well  and  quite  accurately,  some  skill  is 
required  (but  not  always  attained)  in  deciding  when  rezoning  should  take 
place. 

The  calling  sequence  for  rezoning  is  in  the  main  program  (0179-02°4). 
On  the  basis  of  optical  properties  (0182),  the  outer  limit  of  the  region  to 
be  scanned  (the  index  NZ  TS)  and  an  allowable  mass  ratio  for  neighboring 
zones  (PMT)  are  selected  (0181-0202).  If  at  least  two  cycles  have  passed 
since  the  last  rezone  (0204),  zones  9  through  NZTS  are  tested  for  size 
compared  to  the  size  of  the  entire  configuration  (0205),  temperature 
gradient  (0206),  density  gradient  (0207),  and  mass  gradient  (0208).  If 
these  gradients  are  less  than  the  allowable  aititrary  limits,  then  rezoning 
is  allowed  so  long  as  the  zone  is  not  undergoing  significant  compression 
(0209). 

A. 6  Hydrodynamics  routine 

The  hydrodynamics  routine  (1261)  is  patterned  after  the  artificial 
viscosity  method  of  treating  shocks  (see  Chapter  2  ).  In  addition  to 
advanaing  four  of  the  basic  equations,  this  routine  also  controls  the  size 
of  the  time  increments  and  performs  misaelloneous  other  functions. 
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At  the  beginning  of  the  routine,  the  previous  temperature  increment 
is  tested  (1273)  against  the  temperature,  and  if  the  increment  is  too  large 
the  proposed  time  step  is  cut  a  factor  of  five  (1277).  This  test  serves 
several  purposes  depending  upon  the  values  of  the  previous  temperature 
increment  that  may  be  stored  in  the  computer  at  the  moment.  If  a  maincycle 
has  been  completed  satisfactorily,  l.e.  all  temperature  increments  are  lass 
than  10%  of  their  respective  temperatures,  then  no  decrease  in  estimated 
time  step  takes  place.  If,  however,  a  main  cycle  was  completed  after 
three  passes  of  the  energy  equation,  the  10%  requirement  may  not  have  been 
satisfied,  i.e.,  the  iteration  may  not  have  converged.  Should  this  be  the 
case,  then  the  time  step  is  shortened  in  the  hope  that  a  numerical 
instability  can  be  avoided. 

If  the  main  program  stability  check  (0457)  is  violated,  the  program 
returns  to  the  beginning  of  that  master  cycle  after  restoring  all  data 
except  the  temperature  Increments.  Then,  since  the  HYDRO  tests  are 
slightly  more  demanding  than  are  the  main  program  tests,  the  time  step 
will  also  be  decreased  when  the  main  program  senses  a  difficulty. 

The  equation  of  motion  sequence  is  carried  out  in  two  separate 
phases  which  are  separated  by  criteria  to  choose  a  new  time  increment. 

The  particle  velocities  are  first  advanced  using  the  previous  value  of 
the  time  step  (1289)  so  that  proper  time  centering  of  the  difference 
equation  (Eq.  A. 9))  is  maintained. 

A  new  time  increment  is  then  selected  (1298-1335).  First  a  time 
step  30%  larger  is  suggested  (1299).  This  value  is  then  reduced  should 
the  Courant  criterion,  Eq.  (2.5-4),  demand  that  a  smaller  value  be  used 
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(1302-1310).  The  time  may  be  further  reduced  by  a  radiative  criterion 
(1314-1326).  Gross  checks  are  then  Imposed,  as  a  safety  factor,  which 
demand  that  the  new  time  step  can  never  exceed  the  previous  one  by  more 
than  a  factor  of  two,  or  be  less  than  a  given  minimum  value  (DTMIN). 

The  value  of  DTMIN  is  continually  increased  during  the  computation  and 
is  kept  a  factor  of  SO  smaller  than  the  largest  time  step  that  has  been  u:ed. 
Should  the  speed  of  computation  decrease  more  than  this  factor  of  50 ,  too 
large  a  time  step  (the  value  of  DTMIN)  is  forced  into  use  and  the  computation 
may  become  unstable  and  turn  itself  off.  This  feature  prevents  the  waste 
of  computer  time  should  the  time  step  conditions  become  abnormally 
critical  at  some  point  in  the  configuration. 

Superimposed  on  these  criteria  is  the  mechanism  for  causing  data 
to  be  printed  out  exactly  at  fixed  predetermined  times  (1333-1335).  This 
criterion  may  further  decrease  the  time  step. 

After  a  new  time  step  has  been  decided  upon,  new  values  of  the 
particle  velocity  are  determined  by  linear  interpolation  (or  extrapolation) 
so  that  proper  time  centering  of  the  equation  of  motion  is  maintained  (1337). 

The  radii  (1344)  and  specific  volumes  (1362)  are  then  advanced  in  a 
straightforward  manner.  The  new  radii  are  tested  before  adoption  (1348) 
to  prevent  sudden  zone  collapse  should  the  estimated  hydrodynamic  time 
step  be  too  large.  A  local  recycle  with  decreased  time  step  is  then 
instituted  (1358). 

It  is  perhaps  appropriate  to  again  mention  that  the  use  of  large 
safety  factors  in  the  time  step  criteria  result  in  the  use  of  large  amounts 
of  computer  time.  Considerable  economy  is  achieved  by  lowering  the 
safety  factors,  testing  the  proposed  results  before  closing  a  cycle. 
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and  re-cycling  when  necessary.  Using  this  technique  and  with  a  little 
experience/  the  code  can  be  kept  running  at  near  optimum  speed. 

The  sequence  (1372-1385)  advances  the  artificial  viscous  pressure  . 

A  variety  of  formulae  are  available  in  the  literature  for  this  purpose.  The 
formulae  used  here  is  similar  to  that  given  by  Richtmyer  (see  Chapter  8 
references).  This  form  appears  to  give  better  results  when  shocks  reflect 
at  the  center  of  the  sphere  than  do  the  "linear"  and  "quadratic"  forms.  In 
the  final  analysis,  the  use  of  an  artificial  viscosity  is  an  art  and  an 
adjustable  constant  (1374)  is  available  to  achieve  optimum  results  for 
any  specific  situation.  Use  of  too  small  a  constant  causes  numerical  ripples 
behind  the  shock,  while  use  of  too  large  a  value  spreads  the  shock-over  too 
large  a  distance  and  lowers  the  shock  velocity.  According  to  Richtmyer, 
choice  of  the  arbitrary  constant  in  a  manner  so  as  to  spread  the  shock 
discontinuity  over  3-4  zones  results  in  shock  velocities  and  pressures 
that  agree  well  with  laboratory  experiments. 

The  use  of  an  artificial  viscosity  causes  a  ficticious  precursor  ahead 
of  the  shock  front.  If  this  precursor  is  optically  thick,  the  shock  radiation 
rate  will  be  affected.  This  effect  reduces  the  rate  of  radiation  loss  when 
the  shock  temperature  is  large,  but  numerical  testing  has  shown  that  it 
has  little  effect  on  the  shock  energetics . 

A. 7  Equation  of  state  routine 

The  equation  of  state  subroutine  (1217)  is  entered  with  known  values 
of  the  temperatures  and  specific  volumes  for  each  zone,  and  values  of 
pressure  and  interval  energy  are  computed. 
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The  source  date  for  the  analytic  fit  to  equation  of  state  are 
primarily  due  to  Gilmore  ( 19 55)  and  to  Hilsenrath  and  Beckett  (1955).  This 
polynomial  type  of  fit.  though  in  principle  not  as  accurate  as  an  iterative 
routine,  is  preferred  for  computational  purposes  because  the  derivatives 
are  well  behaved.  This  fit  is  also  self  consistent  in  that  the  hugonlots 
are  closely  satisfied,  while  some  of  the  piece-wise  fits,  that  are  accurate 
over  ilmited  ranges,  fall  in  this  regard.  No  significant  inaccuracies 
are  known  to  have  resulted  from  use  of  this  simple  expression. 

There  is  some  question  as  to  whether  radiation  pressure  and  the 
radiation  energy  density  should  be  Included  in  the  equations  of  state 
(see  Chapter  2).  The  subroutine  STATE  allows  an  explicit  choice  to  be 
made  in  this  regard  (1222-3).  These  effects  can  only  be  Important  at  high 
temperatures.  The  argument  against  Including  these  effects  is  that  at  the 
high  temperatures  the  matter  and  the  radiation  cannot  be  in  equilibrium 
according  to  the  local  high  temperature  since  the  gas  is  too  transparent. 

The  radiation  field  is  characteristic  of  the  lower  temperatures  where  the 
opacity  is  higher.  To  base  the  radiation  pressure  on  the  higher  values 
of  temperatures  in  the  interior  would  thus  be  an  overestimate. 

A  .  8  Radiative  properties  routine 

The  radiative  properties  of  the  fluid,  which  are  characterized 
by  the  S,  W,  A,  and  Z  functions,  Eqs.  (A.  17)  through  (A. 25),  are  supplied 
by  subroutine  SWABZ  (0492-C692).  The  analytic  representations  of  the  Z~ 
and  A  functions,  which  differ  only  in  that  the  electron  scattering  is  omitted 
in  the  A  function,  are  formulated  in  terms  of  Xjj,  a  radiative  mean  free  path 
which  depends  upon  the  zone  tempereture,  zone  specific  volume,  and  the 
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The  Z  function  (ZI  in  the  code)  is  formulated  directly  as  a 
transmission  (0500-0507).  The  A  function  cannot  be  formulated  directly 
in  this  fashion  since  In  A  is  needed  to  define  optical  distance,  and 
truncation  errors  would  occur  as  A-  1.0.  Thus  (HMFP  in  the  code, 

is  found  (0508  -0511),  together  with  a  separate  high  temperature  emission 
term  (0512)  due  to  Bremsstrahlung  (HMFF  in  the  code).  The  smaller  of 
these  two  mean  free  paths  is  used  for  temperatures  above  10  eV  (0514). 

The  emission  optical  depth  (0516)  then  follows  immediately  from  the 
cone  thickness.  The  A  function  (0517)  at  this  point  in  the  code  is  identical 
with  the  definitions  used  in  Eqs.  (A.  21)  and  (2  .5-14).  A  later  sequence 
(0670-0675)  redefines  A  as  (1-A)  (an  emisslvlty)  as  a  computational 
convenience  for  zones  of  small  emisslvlty. 

The  variables  BC  and  BB  9  IS  18  and  0526}  are  used  to  represent  the 
source  function  at  the  zone  centers  and  zone  boundaries  respectively.  It 
will  be  noted  that  the  boundary  value  is  determined  by  linear  interpolator 
of  the  source  function  in  terms  of  geometrical  rather  than  optical  distance. 

The  two  methods  yield  substantially  the  same  results  when  the  two  neighboring 
zones  have  comparable  optical  thicknesses,  but  the  geometrical  method 
gives  better  values  when  an  optically  thick  zone  occurs  next  to  an  optically 
thin  zone.  The  terms  involving  the  boundary  values  cancel  if  both  zones 
are  optically  thick,  while  the  source  function  gradient  is  small  for  two 
transparent  zones ,  so  that  the  method  of  interpolation  is  not  important  in 
these  cases. 

The  sequence  (0536-0563)  computes  the  optical  depth  inward  from 

♦  . 

The  double  subscripting,  i.e.  A(K,N)  has  been  carried  over  from  an 
earlier  version  of  the  code  in  which  N  spectral  bands  were  used. 
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the  outer  boundary  of  the  configuration  and  setB  various  control  variables 
used  by  the  program  a!;  other  locations.  The  index  LZR  specifies  the  last 
zone  to  be  Included  in  the  radiative  part  of  the  iteration  scheme.  The 
fireball  radius,  FBR,  is  set  as  the  outer  radius  of  the  zone  in  which  the 
total  optical  depth  as  measured  from  the  outside  has  reached  0.44.  Choice 
of  this  value  has  no  particular  significance.  For  high  air  densities  the 
optical  depth  increases  abruptly  so  that  any  re  isonable  test  value  will 
result  in  choosing  of  the  same  zone  to  specify  he  radius.  For  rarefied 
atmospheres ,  considerable  limb  darkening  takes  place  and  chord  integrations 
would  be  necessary  to  find  a  precise  radius.  The  test  value  of  0.44  has 
been  found  to  yield  radii  satisfactory  for  the  intended  applications  elsewhere 
in  the  code.  The  index  MCP  is  used  to  specify  the  zone  in  which  optical 
depth  unity  occurs  as  measured  along  the  representative  ray.  (This 
corresponds  to  a  radial  optical  depth  of  2/3). 

The  sequence  (0564-0607)  computes  the  wavelength  at  which  the 
principal  spectral  absorption  edge  occurs  for  each  zone.  This  wavelength 
depends  only  upon  the  physical  characteristics  of  each  zone,  i.e. ,  its 
temperature,  density,  and  zone  thickness.  Zones  are  first  sorted 
according  to  temperature  to  determine  whether  the  spectral  transition 
is  due  to  an  atomic  species,  the  nitrogen  molecule,  or  the  oxygen  molecule. 

The  transition  edges  due  to  atomic  species  are  in  the  far  ultraviolet 
and  a  fit  will  be  required  only  at  very  high  altitudes  when  the  fireball  is 
transparent  throughout  while  the  temperatures  are  high  enough  so  that  the 
Planck  function  is  significant  in  the  ultraviolet.  This  fit  used  by  the  code 
is  therefore  very  limited  in  its  application. 
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The  nitrogen  and  oxygen  molecular  formulations  Involve  a  continuum 
with  a  relatively  sh.srp  long  wavelength  limit,  and  an  extensive  system  ox 
molecular  bands  extending  from  this  limit  toward  lonqer  wavelengths.  The 
continue  are  assumed  to  exist  at  all  times  that  the  molecules  have 
sufficient  population,  but  the  bend  systems,  which  depend  upon  the 
population  of  the  higher  vibrational  levels,  are  assumed  not  to  exist  until 
the  passage  of  a  vibrational  relaxation  period. 

While  in  principle  the  relaxation  time  should  be  measured  from  the 

time  that  each  zone  is  first  heated  (actually  the  temperature-time  history 

should  be  taken  into  account),  a  satisfactory  first  approximation  is  given 

by  use  of  the  time  since  the  detonation.  The  relaxation  time  for  ^  at 

-  7  -7 

sea  level  is  taken  as  5  x  10  sec  and  for  as  3  x  10  secs.  These 

times  are  scaled  Inversely  with  the  density  to  obtain  the  relaxation 

times  at  higher  altitudes.  These  times  are  based  on  data  by  Blackman  (1956). 

The  absorption  edge  and  the  continuum  absorption  due  to  a  particular 
species  must  fade  away  as  the  population  is  diminished  by  dissociation. 

At  a  given  density,  the  population  decreases  very  rapidly  with  temperature 
as  soon  as  kT  becomes  comparable  with  the  dissociation  energy.  Due  to 
the  finite  zoning  structure,  the  population  of  a  particular  specie  will  be 
appreciable  in  one  zone,  but  negligible  in  a  neighboring  hotter  zone  due 
to  the  rapid  temperature  dependence  of  the  populations.  Thus,  for  the 
purpose  of  computing  absorption  edges,  the  species  can  be  assumed  to 
exist  below  a  certain  temperature  and  not  to  exist  above  that  temperature. 

The  dissociation  is  thus  assumed  to  take  place  at  a  temperature  rather  than 
over  a  narrow  temperature  range.  The  dissociation  temperatures  for  Ng 
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and  C>2  ,  as  a  function  of  density,  are  represented  in  the  code  by  two 
formulae  (1708-1709)  and  are  used  in  the  SWABZ  subroutine  (0 5 72-0 S80) . 

The  sequence  (0612-0669)  computes  the  Z+  values  (ZO  in  the  code). 

The  Z+  function  depends  on  X  which  has  been  determined  above,  and 

c 

the  temperature  T^  used  to  describe  the  spectral  distribution  of  the 
radiation  Incident  upon  the  zone.  The  sequence  (0622-0642)  selects  this 
temperature  for  each  zone.  In  the  case  of  an  optically  thick  fireball,  this 
temperature  is  that  of  the  first  zone  at  optical  depth  greater  than  0.7  from 
the  zone  in  question  (0628).  For  a  transparent  fireball,  where  the  radiation 
comes  from  a  shell  rather  than  from  a  "surface",  the  temperature  is  taken 
as  an  optical  depth  weighted  average  of  the  zones  interior  to  the  zone  in 
question  (0624).  This  "shell  source”  sequence  is  Important  only  at  high 
altitudes  where  the  fireball  is  transparent,  and  when  the  temperatures  are 
still  high  enough  to  have  radiative  flow  in  the  far  UV  region  of  the  spectrum 
where  the  absorption  edges  occur. 

The  Z+  values  are  corrected  for  the  effects  of  intervening  zones 
between  the  source  of  the  radiation  and  the  zone  in  question  (0655). 

The  sequence  (0676-0688)  becomes  effective  at  very  high  altitudes 
when  the  configuration  is  quite  thin  and  thermal  radiation  plays  only  a 
minor  part  in  determining  the  temperature  distribution.  Under  these 
circumstances,  the  series  expansion  of  the  source  function  should  not  be 
truncated  and  derivatives  of  higher  order  than  the  first  should  be  Included. 
But  since  the  radiation  is  of  little  importance  in  this  case,  the  series  can 
be  further  truncated  so  that  only  the  zero  order  term  is  used  and  the  code 
automatically  switches  over  to  radiative  transfer  for  isothermal  optically 
thin  slabs. 
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The  variable  EMS  (0689)  is  used  as  an  estimate  oi  the  total  emisslvity. 

It  corresponds  to  the  function  for  that  zone  having  the  maximum  cut-off 
wavelength,  but  without  correction  for  intermediate  zones 

A.  9  Radiative  flux  routine 

Since  all  the  needed  data  has  been  generated  elsewhere  by  the  code, 
the  radiative  flux  routine  Is  particularly  simple  (1183). 

To  perform  the  flux  integration  a  boundary  condition  is  needed.  For 
this  purpose,  the  inward  flux  incident  on  the  outer  boundary  of  the 
configuration  is  chosen  as  zero  (1190). 

The  Inward  flux  at  the  boundary,  one  zone  inside,  is  given  by  the  sum 
of  the  transmitted  and  emitted  components  (1193)  as  in  Eq.  (A. 27).  The 
Integration  continues  inward  until  the  spherical  central  zone  is  reached. 

The  outward  flux  for  this  zone  is  the  sum  of  the  transmitted  Inward  flux 
and  the  local  emission  (1195).  The  integration  then  proceeds  outward  (1197) 
using  Eq.  (A. 26).  One  can  view  this  process  as  an  integration  starting  at 
one  side  of  the  fireball,  passing  through  the  center,  and  then  on  out  the 
other  aide.  All  of  the  inward  and  outward  fluxes  needed  to  form  the  radial 
component  of  the  flux  divergences  (1211)  are  generated  during  this  integration. 

It  should  be  noted  that  this  subrouting  is  written  again  for  N  spectral 
bands,  and  that  the  total  directional  flux  at  a  given  boundary  is  obtained  by 
a  summation  over  the  spectrum,  even  though  only  1  spectral  band  is  used 
by  the  present  code.  In  addition,  the  A  function  used  in  (1193-1198)  does 
not  correspond  to  the  transmission  function  used  elsewhere  in  the  text, 
but  to  (1-A)  as  explained  in  the  SWABZ  subroutine. 


126 


The  energy  Equation  (£q.  (  A.  5  ))  is  solved  by  an  iterative  method  as 

described  by  Hillendahl  (1964).  Subroutine  COEFF  (1395)  perform?  the 
necessary  algebra  to  form  the  required  derivatives. 

The  basic  approach  is  to  compute  the  derivatives  numerically  by  a 
ripple  zone  technique,  rather  than  to  derive  and  to  code  explicit  formulae 
for  the  derivatives.  In  using  this  technique,  the  temperature  of  a  single 
zone  is  increased  2%,  then  formulae  identical  to  those  used  in  subroutine 
SWABZ  are  used  to  calculate  those  radiative  properties  which  change  as  a 
result  of  this  temperature  increment  (1429-1576).  A  flux  integration  is  then 
carried  out  (1577-1593),  the  flux  derivatives  are  formed  (1614),  and  tho 
perturbed  variables  are  returned  to  their  normal  values  (1627)  which  were 
saved  (1411).  This  ripple  zone  process  is  repeated  until  all  the  required 
derivatives  are  available.  Derivatives  with  respect  to  zone  temperature 
more  than  two  zones  distant  are  truncated. 

The  energy  equation  derivatives,  Including  both  the  radiative  and 
hydrodynamic  parts,  are  formed  numerically  (1647).  The  data  is  then 
available  to  form  a  set  of  linear  algebraic  equations  for  the  temperature 
Increments  of  the  zones. 

This  matrix  1,  then  solved  by  direct  elimination  and  back  substitution 
using  recursion  formulae  (1673)  and  (0447). 

This  numerical  method  of  solution,  involving  the  ripple  zone  method 
cf  obtaining  flux  derivatives  and  the  step  by  step  formation  of  the  energy 
equation  derivatives  has  been  found  to  be  both  convenient  and  economical . 

If  details  of  the  radiative  properties  or  flux  formulae  are  changed, 
duplicates  of  the  new  formulae  are  simply  inserted  into  the  coefficient 
subroutine  without  the  necessity  of  deriving  explicit  formulae  for  the 
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derivatives,  which  in  some  cases,  have  as  many  as  40  terms.  Such  lengthy 
formulae  are  difficult  to  derive  and  code  without  errors,  and  the  sorting  of 
terms  to  avoid  arithmetic  truncation  difficulties  is  a  major  task.  Since  the 
actual  number  of  operations  to  be  carried  out  by  the  computer  is  approximately 
equivalent  in  the  two  methods,  the  numerical  technique  is  to  be  preferred. 

A.  10  Code  listing 

The  pages  following  present  a  complete  listing  of  an  actual  working 
radiation-hydrodynamic  code  which  has  been  described  in  sections  A.1-A.9. 
No  attempt  has  been  made  to  edit  the  listing  for  publication  purposes  since 
this  practice  quite  often  results  in  the  publication  of  codes  that  do  not  work . 
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•  FORTRAN  0001 

CFIRE  1  0002 

C  MOOIFIEO  DIMENSION  STATEMENT  NSZ-t  ONLY  0003 

DIMENSION  T(|01),  TSUOO).  TP(IOO).  TM(IOO).  TR(IOO).  0004 

2  PACIOOJ.  P(100).  PS(IOO).  PPC100).  PH(IOO).  PRUOO).  0005 

3  DEC  1 00).  EUOO).  GMUOO).  EP(IOO).  EM(IOO).  ER(IOO).  0006 

4  0(100).  V(100).  VS(IOO).  RHOZ( 100).U( 1 00).  VR(IOO).  0007 

50R( 1 00). 0(1 )»R(1 01 )•  RZ(IOO).  R2C100).  UA(tOO).  URC100).  0008 

6  OTM(IOO).  OTR(IOO).  OTH(IOO).  OPTCIOO).  OETCIOO).  RR(IOO).  0008 

7  ZNASC 100).DIVFA(1 00). 01 VFR( 100) .RESOUEC 1 00).FP( 1 00).  FZCIOO).  0010 

8  FH(IOO).  FHMUOO).  HZ(IOO).  MP(IOO).  HPPP(  100).HPP(  100).  0011 

9  ONN(IOO).  OM(IOO).  OZUOO).  DP(IOO).  DPP(IOO).  BNC100).  0012 

1  CN( 1 00).DN( 1 00) >EN( 1 00).ETA( 1 00). XSC 1 00). GNU C 1 00). PART ( 1 00)  0013 

DIMENSION  THETAC100)  0014 

C  0015 

C  STORAGE  FOR  RADIATION  VARIABLES  0016 

C  0017 

DIMENSION  88(100.10).  OTAU( 100. 10).  S(100. 2).  FOC 1 00. 10).  0018 

IFOTdOO.lO).FI(lOO.lO).  PI  TC  1  00. 1  03.  Z0(  1 00. 1  0).  ZI  ( 1 00.  1 0)  0019 

2.  AC  1 00. 10).  VtlOC.lO).  BC(IOI.IO).  P ISC 1 00) .  FOS(IOO).  0020 

3CVLU00.  2). YM(  1  Oir).  TAUC 1 00.  2)  0021 

COMMON  T. TS.TP. TM.  TR.PA.P.PS.PP.PM.  PR.OE.E.  GM.EP.EM.  ER.  Q.  V.  VS.  RHO  0022 
2Z.U.VR.0R.D.R. RZ.R2.UA. UR. OTM.OTR.OTH. DPT. DET.RR.ZMAS. 01 VFA.DIVFR  0023 

3. RESOUE.FP.FZ.FM.FMM.HZ.HP.HPPP.HPP.DMM.OM.DZ.DP.OPP.BN.CN.ON.EN  0024 

4.  ETA. XS. GNU. PART . THETA. KGU.KGP  0025 

5.88.0TAU.S.F0.F0T.FI.FIT.Z0.ZI. A. V.BC.FIS.FOS.CWL. YM, TAU.NSZ.  0026 

6  NZSS.  LZ.LZM1.LZM2.LZP1.LZP2.8R.RJ.RX.NCV.NMC.NT1.FL0X.FLEX.  0027 

7T1ME.DT.CS.CR.RS.MCL.MCP.MCV.RM.VD.ZA.NB.N0S.FBR.LZR.DTMIN.NR  0028 

8.KZ1. KZ2. KZ3. KZ4.KZ5.KZ6. KZ7.KZ8. KZ. TD02. TDN2. NOP. SCALE . EMS.  0029 

98LANK .  AST  •  TEE .  PLUS.  PER  100.  DAW.  EQUAL .  P I NUS.  FFF ,  UUU.  PPP.  NT  APE  •  T 1 MEV  0030 
6. TFLUX.FL I X. T I MES. P03. P34 . P45. P57. P7 1 . P47 , 047 . 07 1 . VKT . Y | ELD. XY 1 ELD  003 1 

KZ6*0  0032 

REVINO  41  0033 

REV 1 NO  31  0034 

REVINO  32  0035 

REVINO  22  0036 

REVINO  42  0037 

REVINO  25  0038 

B  BLANK >6 06 06 06 06 060  0039 

8  AST  *545454545454  0040 

8  PLUS *2 02 02 02 02 020  0041 

8  PER 100-333333333333  0042 

0(1 )*0. 0  0043 

T !MEV*1 . OE-l 0  0044 

0045 

40  FORMAT (17HC0NTROL  OATA  RUN  9I4.6X. El 0. 3. 1 1 A1 )  0046 

41  F0RMAT(14HC0NSTANTS  RUN  12. 7H  CYCLE  14.1 X.1P3E 12.5. 0P4F4. 2)  0047 

42  FORMAT (17H0ATA  CAROS  CYCLE  1 4.1  OX. 10HRUN  NUMBER  1 3.1  OX. 5HSET  A/  0048 

42  1(14. 1P5E12.5* 1P£1 1.4. »2. 13))  0049 

43  FORMATt 17HDATA  CAROS  CYCLE  14. 1  OX. 1 OHRUN  NUMBER  13. 10X.5HSET  8/  0050 

43  1(14. IPSE  12. 3. 1 PS  11.4. 12. 13))  OOSi 

I 
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44  FORMAT! 1H  .6H  M00E-14/6H  NMC* I4/6HNZONE- I 4/6H  NQS-I4/6H  MCL-14/  009? 

44  16H  RS-1PE1I.4/6H  T IME«El 1 . 4/6H  0T-E1I.4/6H  CS-E11.4/6H  CR*  0093 

44  2E11.4/6H  8R-E1I.4/7H  TIMEL-1PE1 1.4)  0094 

49  FORMAT! 1H1 • 214. 1PE12.3. 19. IPSE  12. 3/II4.1P12E10.3))  0099 

47  FORMAT! |H  •  19MZ0NE  SPLIT  AT  NMC*I4.9X.9HTIME*1PE1 1.4.9X.9HZ0NE*I4,  0096 

47  1 19)  0097 

49  FORMAT11H1.30X.4HRUN-I4.I9X.20HLOG  POWER  IERGS/SEO/6H  CYCLE.  X.4HT  0096 
49  2IME.3X.I2. 13X. I2.13X. 12. 13X. I2.13X.12.13X. I2.X. UHTOTAL  POWER. 3X.  0099 

48  36HRA0IUS/19X. 76A1 )  0060 

49  FORMAT! 1M  . 19HRC ZONED  AT  NMC-14.9X.9HT1ME-1PE1 1 .4.9X.9MZ0NEM4. 17)  0061 

90  FORMAT! 14. IP9E13.9)  0062 

NSZ»1  0063 

RCWINO  19  0064 

REWIND  16  0069 

READ  INPUT  TAPE  9.40.NR.MOOE.NMC.NLP.NOO.LZ.NZONE.NOS.MCL. TIHEL  0066 

1. BLANK. AST. TEE. PLUS.PERiOO.OASH. EQUAL. PINUS.FFF.UUU.PPP  0067 

PRINT  6321.  MCL.TIMEL  0066 

8321  FORMAT!34H  NORMAL  TERMINATION  CONDITION  NMC> 14.1  OX. 9HTIME-1PE 12. 3  )  0069 

WRITE  OUTPUT  TAPE  19. 12349.NR  0070 

12349  FORMAT! 1H1///////////1H  ,40X.  32HR  W  HILLENOAHL  PALO  ALTO  201  0071 

123491//IH  .40X.33HPROOUCT1ON  OUTPUT  LIST  RUN  NUHBERI4)  0072 

READ  INPUT  TAPE  9.41 .NR. NMC. TIME. OT. FLEX. CS.CR.6R.RS  0073 

NSTARY-NMC  0074 

OTMIN-DT  0079 

NEG-NMC  0076 

MCOC»NMC*90  0077 

NMA6-MC0C  0078 

JXC«0  0079 

NMCS-NMC  0080 

TINES-T1ME  0061 

FLIX-FLEX  0082 

NSTOP-O  0083 

NRZ*90  0064 

NO* 14  0089 

IPS-0  0086 

LZM1*LZ-1  0087 

LZM2-LZ-2  0088 

1F!M00E-1)1. I. 1000  0089 

I  CALL  ENTRY  0090 

WRITE  OUTPUT  TAPE  6.44  .MOOE.NMC.NZONE.NQS.MCL.RS.TIME.OT.CS.CR.  0091 
IBR.T1MEL  0092 

F8R*R! 1 00)  0093 

RTEST-R! I )  0094 

NPL-NMC  0099 

GO  TO  1036  0096 

1000  RE AO  INPUT  TAPE  3.42.NMC.NR.!NMC.R!K).UCK).VIK).Q!K).T!K).P!K).NR.  0097 

1000  IK.KM.IOO)  0098 

READ  INPUT  TAPE  9. 43. NMC. NR. (NMC.RZ(K).R2!K). ZMAS(K).OR!K).RHOZ(K)  0099 
|.TR!K).NR.K.K*1. 100)  0100 

RE AO  INPUT  TAPE  9.90.NR. TIME. TEE.WKT, T0N2. T002  0101 

RE  AO  INPUT  TAPE  5* 90. NR. SC ALE. EQUAL. 07 1. 047. T I MEW  0102 
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NB-NMCM  0103 

LZ-100  0104 

NLP«NLP*23  0103 

OTHIN>OT»0. 1  0106 

CALL  REJUST  0107 

IPS-0  0108 

NPL-NHC  0109 

1034  WRITE  OUTPUT  TAPE  6. 1033.0T.ORC1). CK.RCK).RHOZCK). VCK). T(K).UCK).Q  0110 

lOO.ZHASCK).0R(K).K-l.  100)  0111 

1033  FORMATC1H1. 10H1NPUT  DATA. 10X.3HOT-E12.4.5X.3HOR-E12.4/3H  K.2X.4HR  0112 
lCL).8X.7MRH0ZCK).5X.4HVCK).8X.4HTCK).8X.4HUa).8X.4HQCK).8X.7HZKAS  0113 
IO<).3X.3HQRCK)  /( 14. 1P8E12.4) )  0114 

0113 

WRITE  OUTPUT  TAPE  8,44  . MODE. NMC.N20NE.NQS.MCL.RS. TIME. OT.CS.CR.  0)16 

1BR.TIHEL  0117 

FBR-RC100)  0118 

RTEST-Rd)  0119 

1036  NTAPE-13  0120 

GO  TO  3000  0121 

C  RASTER  CYCLE  RE-ENTRY  POINT  0122 

2000  TIHE-TINE+OT  0123 

C  ROUTINE  TO  CHANGE  NUMBER  OF  ZONES  IN  USE  “  "  LIMIT  100  ZONES  0124 

10  00  14  J-1.100  0123 

K*1 01 -J  0126 

IF(UCK)-1.0E*02)  11.12.12  0127 

11  IF(TCK)-2.0*T(100)J  14.14.12  0128 

12  LZ-K+6  0129 

13  GO  TO  16  0130 

14  CONTINUE  0131 

13  LZ-100  0132 

16  IFCLZ-1 00)  18.18.17  0133 

17  l.Z-100  0134 

18  LZK1-LZ-1  01 3S 

19  LZM2-LZ-2  0136 

20  LZPl-LZ*!  0137 

21  LZP2-LZ+2  0138 

22  FLEX«FLEX*FLOXtOT  0139 

23  IF(NMC)  33.24.26  0140 

24  NTAPE-13  0141 

CN(LZ)*0. 0  0142 

TFLUX-FLOX  0143 

FLEX-0.0  0144 

23  GO  TO  732  0145 

26  IFCNMC-  3)  27.27.29  0146 

27  NT APE -6  0147 

28  GO  TO  32  0148 

29  IFCTIME-TIMEW2  33.30.30  0149 

30  TIMEW«TIMEW*(10.0*»(1. 0/18.0))  0130 

IFCNMC-  4)  31.29.31  0131 

31  NTAPE-13  0152 

LZP2-N1  0133 
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32  CN(LZJ-mME-TlHES>/FLOATF(NHC~NHCS>  0134 

TFLUX-tFLEX-FLIX)/CTINE-TlHM>  0133 

732  CAU.  COfPO  0136 

NOP-NOP  0137 

FLIX-FLEX  0138 

NMCS-NNC  0139 

TIHEt-TlHE  0160 

LZP2«LZ*2  0161 

33  CONTINUE  0162 

0163 

494  1FCNNC-HC0C)  414.409.409  0164 

409  NCDC>NCOC*30  0163 

REWIND  16  0166 

NOOE«MOOE*l  0167 

WRITE  OUTPUT  TAPE  16.40.NR.NOOE.NMC.NLP.NEQ.LZ.NZONE.NQS.MCL.  0168 

I TINEL. BLANK. AST. TEE. PLUS. PERIOO.OASH.EOUAL.PINUS.FFF.UUU.PPP  0169 

WRITE  OUTPUT  TAPE  16.41. NR.NhC. TIME. OT. FLEX.CS.CR.BR.RS  0170 

WRITE  OUTPUT  TAPE  16.42.NNC.NR. (NMC.RCK1.UCK). V(K).0(K). T(K).  0171 

1P(K1.NR.K.K»1.100)  0172 

WRITE  OUTPUT  TAPE  16.43.NNC.NR. (NHC.RZtK).R2(K).ZHAS(K).DRCK).  0173 

IRHQZ(K). TR(K3.NR.K.K«1 .100)  0174 

WRITE  OUTPUT  TAPE  16.S0.NR. TINE. TEE. WKT.T0N2.T0O2  0175 

WRITE  OUTPUT  TAPE  16.S0.NR.SCALE. EQUAL. Q71 .047, T1NEW  0176 

NOOE*HOOE-l  0177 

0178 

C  REZONE  SWITCH  0179 

414  RTEST-RCLZ-3)  0180 

NZTS-L2-11  0(81 

IFJNCP-3J  413.413.4130  0182 

C  4130  ALL  OPTICALLY  THICK  CASES  0183 

4130  NZTS-MCP-4  0184 

PNT-2.33  0185 

4133  IFCN7TS-91  427.417.417  0186 

C  413  ALL  TRANSPARENT  CASES  0187 

413  IF(Y(4)-2.0*TON2)  4170.4170.416  0188 

C  416  HIGH  ALTITUOE  EARLY  PHASE  0189 

416  DO  4161  L-9.LZ  0190 

|F(T(L)-I.3»T0N2)  4160.4161.4161  0191 

4160  NZTS-L-!  0192 

PMT-I.S  0193 

IFCNZTS-9)  427.417.417  0194 

4161  CONTINUE  0195 

C  4170  LATE  TIME  TRANSPARENT  CAST:  0196 

4170  00  4140  J'll.LZ  0197 

IF(R(J)-W(1.9n  4140.4141.4141  0198 

4141  NZTS-J-3  0199 

PNT-2.8  0200 

IFCNZTS-9)  427.417.417  0201 

4140  CONTINUE  0202 

417  DO  426  K>9.NZTS  0203 

4013  IF(NNC<NRZ)  427.427.419  0204 
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419  IF((R(K)-R(K>2))-0.06tRTEST)  422.422.426  0209 

422  lFCABSFCTCK)-T(K-m-0.30«?(K))  423.423.426  0206 

423  IFCABSFCVCK}-VtK-m-0.7tVCK>)  424.424.426  0207 

424  IF(ZHAS(K)+ZHAS(K-1 )-PHT#ZHASCK-2) )  429.429.426  0200 

429  lFCQ(K)-0.09»P(Kn  9429.9429.426  0209 

9429  LZP2-K  0210 

NRZ-NNC  0211 

JXC»JXC*l  0212 

WRITE  OUTPUT  TAPE22.49.NMC. TIHE.LZP2  .JXC  0213 

WRITE  OUTPUT  TAPE  6.49.NMC. TIME.LZP2  .JXC  0214 

CALL  REZONE  0219 

LZ-LZ-1  0216 

LZH2-LZ-2  0217 

LZH1 «LZ-l  0218 

LZP1-LZM  0219 

LZR-LZR-2  0220 

LZP2-LZ*2  0221 

NRZ-NHC+2  0222 

60  TO  427  0223 

426  CONTINUE  0224 

C  OPTICAL  SPLIT  TEST  0229 

427  NS-LZ-9  0226 

KS«0  0227 

IFCNMSP-NMC5  426.429.448  0228 

428  00  440  J«3.NS  0229 

429  K=LZ-J  0230 

IFt  £R(K)-R(K-1 ) 3-0. 08*R(LZ1 )  430.430.442  0231 

430  IFCTAUCK.  1J-1.7)  440.440.431  0232 

431  KS"KS+1  0233 

432  IFCKS-1]  448.433.448  0234 

433  IF(Q(K)-P(K) )  448.434.434  0235 

434  IF(U(K)-1. 0E+09)  448.439.439  0236 

439  KST-K  0237 

KSP«K*9  0238 

00  436  J-KST.KSP  0239 

IFC(R(J)-RCJ-1 ) 1-200. 0)  436.436.437  0240 

436  CONTINUE  0241 

60  TO  448  0242 

437  KZ2*J  0243 

IFCTCJ1-6.0E+04)  443.448.448  0244 

440  CONTINUE  0249 

441  GO  TO  448  0246 

442  KZ2-K  0247 

443  NNSP-NMCO  0248 

JXO-JXOM  0249 

444  CALL  SPLIT  0290 

WRITE  OUTPUT  TAPE  6.47.NNC. TIME.KZ2. JXO  0291 

WRITE  OUTPUT  TAPE  22.47.NHC. TINE. KZ2. JXO  0292 

LZ-LZM  0293 

LZN1-LZ-I  0294 

LZP1-LZM  0295 
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LlPKI^a  0256 

LIHKZ.]  0257 

0258 

■448  IF(NNC-NSTANT)  448.451. 448  0259 

448  tPCNHC-N6TAftT-n  450.451.450  0260 

480  IPCNNC-NOO)  453.451.453  0261 

491  KI2--451  0262 

SCALL  DIA0N6  0263 

NHC-NHCM  0264 

0265 

C  0266 

IF(NSTOP)  35.35.38  0267 

35  IFCTIHE-6.0)  34.52.52  0268 

34  IFC8EN8E  SO  ITCH  t)  52.65  0269 

52  NQOC-HOOC+1  0270 

NSTOP-1  0271 

NCL*HCL+3000  0272 

CALL  OIAON8  0273 

DO  TO  28  0274 

38  PUNCH  40.NNcNOOC.NHC.NLP.NEG.LZ.NZONE.NOS. MCL. TIMEL  0275 

(.BLANK.  AST.  TEC. PLUS.PER1QO.OASH.EOUAL.PINUS.FFF.UUU.PPP  0276 

PUNCH  41.NN.NNC.TIHE.0T.FLEX.CS.CN.BN.NS  0277 

PUNCH  42.  NNC.NN.  (NNC.N(K).U(K).  V(K)«Q(K)<  T(K).P(K).NN.K.Kal.  100)  0278 

PUNCH  43. NNC.NN.  (NMC.NZ(K).R2(K)»ZHAS(K)»DR(K).RH0Z(K)  0279 

I.TR(K).NN.K.K-l.lOO)  0280 

PUNCH  50.NN.TINE.rCC.MKT.r0N2.T002  0281 

PUNCH  SO* NN. SCALE. EQUAL .07 1.047. TINEM  0282 

END  FILE  15  0283 

tND  FILE  25  0284 

REMIND  25  0285 

CALL  COPY  (25.15)  0286 

ENO  FILE  IS  0287 

END  FILE  22  0288 

NEMINO  22  0289 

CALL  COPYC22.13)  0290 

END  FILE  15  0291 

WRITE  OUTPUT  TAPE  6.37.JXC  0292 

37  FORNATC1H  . 13HNEZ0NE  CALLE014.6H  TIMES)  0293 

REMIND  16  0294 

HN-8888  0295 

MRITE  OUTPUT  TAPE  41. 1499.NN.KZ6  0296 

UNITE  TAPE  31.NR.KZ6  0297 

1488  F0RNATC2I4)  0298 

MRITE  OUTPUT  TAPE  32.  45.NN.NNC. TINE. LZ.PC99). TC99).RH0ZC99).P0MER  0299 
2.P47.F8R.  (K.R(K).U(K).P(K).UN(K>.  T(K).FOSCK).FIS(K).ON(K).Q(K).  0300 

3FZ(K).C(K).HPPP(K).K«1.LZ)  0301 

IFCNHC-NNA8)  1502.1502.1501  0302 

1501  READ  INPUT  TAPE  18.40.NN.MOOE.NNC.HLP.NEG.LZ.NZONE.NQS.MCL.  0303 

ITIHEL.8LANK.A8T.TEE.PLUS.PERI00.0ASH.EQUAL.PINUS.FFF.UUU.PPP  0304 

RE AO  INPUT  TAPE  16.41. NR.NHC. TIME.OT.FLEX.CS.CN.BR.RS  0305 

RE AO  INPUT  TAPE  16. 42. NNC.NN. (NHC.N(K).U(K). V(K).Q(KK  T(K).  0306 
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lP(K).NR.K.K-l.lOO)  0307 

REAO  INPUT  TAPE  It. 43. NNC.NR. CNNC.RZ(K).R2(K). ZNAS(K).QRCK).  0306 

IRHOZ(K). TUCK). NR.K.K-I. 100)  0309 

ME  AO  INPUT  TAPEU.SO.NR.  TINE.  TEE.  VKT.T0N2.TD02  0310 

READ  INPUT  TAPE18.30. NR. SCALE. EQUAL. Q7I. 047. TIMEV  0311 

PUNCH  40.NR.N00E.NNC.NLP.NE8.LZ.NZ0NE.NQS.NCL. TIHEL  0312 

1. BLANK. AST. TEE. PLUS. PER I 00. OASH. EQUAL. MINUS, FFF.UUU.PPP  0313 

PUNCH  41.NR.NNC.TINE.0T.ELEX.CS.CR.BR.RS  0314 

PUNCH  42.  NNC.NR. (NNC.R(K) ,U(K)<  V(K) • Q(K).T(K)<P(K).NR.K.K-1. 1001  0313 

PUNCH  43. NNC.NR. (NNC.RZ(K) .R2(K)«  ZNAS(K).ORCK)»RHOZ(K)  0316 

I.YR(K).NR.K.K-I.IOO)  0317 

PUNCH  30.NR.T1NE. TEE. VKT.T0N2.T0O2  0316 

PUNCH  30. NR. SCALE. EQUAL. Q7 1 .Q47. T INEV  0319 

END  FILE  16  0320 

1302  CALL  UNLOAOl 16)  0321 

CEASE- 1.0E*29  0322 

END  FILE  32  0323 

END  FILE  42  0324 

REWIND  42  0323 

CALL  C0PYC42.321  0326 

CALL  UNL0ADC42)  0327 

0328 

C  EXTRA  COPY  OF  USER  TAPE  32  INFO  COPIED  AS  FILE  2  OF  TAPE  13  0329 

ENO  FILE  32  0330 

RE W I NO  32  0331 

CALL  C0PY132. 13)  0332 

ENO  FILE  13  0333 

CALL  COPY  (32.13)  0334 

END  FILE  13  0335 

CALL  UNLOAO( 13)  0336 

CALL  UNL0A0C32)  0337 

ENO  FILE  41  0338 

CALL  UNL0A0C4! )  0339 

ENO  FILE  31  0340 

CALL  UNL0A0C31)  0341 

1300  CALL  EXIT  0342 

63  NTI-0  0343 

IF(NNC-NCL)  64.64.32  0344 

64  IF( TIME-TIHEL)  86.86.32  0343 

C  SET  RETAROEO  VARIABLES  0346 

66  00  71  K-1.100  0347 

67  VR(K)-VCK)  0348 

68  ER(K)-E(K)  0349 

69  PRCK)-P(K)  0330 

70  V(K.4)«T(K)  0331 

V(K.6)«V(K)  0392 

VCK.7)>P(K)  0333 

VCK.8)*Q(K)  0394 

V(K.9)*E(K)  0335 

71  OIVFR(K)-OIVFACK)  0396 

KRT-0  0337 


72  IF(OT-30.0*OTHIN)  74.74.73  0338 

73  OTMIN-OT/SO.O  0339 

74  CALL  HYORO  0360 

KZ4-KZ4  0361 

IF(UC99)-1.0E*03)  290.290.32  0362 

C  INITIAL  TEMPERATURE  EXTRAPOLATION  0363 

290  CONTINUE  0364 

C  ITERATION  CYCLE  RE-ENTRY  POINT  0365 

C  DERIVATIVES  VI TH  RESPECT  TO  TEMP  OP  DC  0366 

3000  00  3UI  K-l.LZ  0367 

3001  IFCT(K))  3002.3002.300  0368 

3002  KZ2--3000  0369 

CALL  DIAQNS  0370 

GO  TO  32  0371 

300  TP(IO-1.02*T£K)  0372 

301  TS(K)-TPtK)  0373 

303  CALL  STATE  0374 

304  DO  310  K«I.LZ  0373 

303  PP(K)«P(K)  0376 

306  EP(K)-ECK)  0377 

309  TH(K)>0.96tT(K)  0378 

310  TSCN)-TM(K)  0379 

311  CALL  STATE  0380 

312  00  318  K-l.LZ  0381 

313  PMCKJ-PCKJ  0382 

314  EMOO-E(K)  0383 

313  OPTtK)*(PP(KJ-PHCK J  J/( TP(K)-TMCK) )  0384 

316  OETCK)-(EP(KJ-EM(K))/tTPCK)-TMCK)}  0385 

318  TS(K)«T(KJ  0336 

320  CALL  STATE  0387 

C  CALL  RADIATIVE  PROPERTIES  ROUTINE  0388 

CALL  SVABZ  0389 

SOI  LZR-LZR  0390 

MCP-MCP  0391 

KZI-KZI  0392 

KZ2-KZ2  0393 

KZ3-KZ3  0394 

K28-KZ8  0395 

KZ9-KZ9  0396 

321  NCV-NCV  0397 

322  OTAUCLZPI . I )-Q. 0  0398 

0399 

C  INTENSITY  INTEGRATION  0400 

300  CALL  FLUXS  0401 

302  IFCIPSJ  303.303.330  0402 

303  IPS- IPS* 1  0403 

304  TIME-TIME-DT  0404 

303  GO  TO  2000  0403 

C  TEMPERATURE  TEST  BYPASS  ON  FIRST  GUESS  0406 

330  1FCNTI)  340.340.332  0407 

C  TEMPERATURE  TEST  0408 
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S32  00  936  K»l.LZ  0409 

933  |F(A8SF(DTN(K>/TCK])-0. I  )  S38.93S.S40  0410 

336  CONTINUE  0411 

C  NAIN  CYCLE  COMPLETED  —  RETURN  TO  2000  0412 

937  GO  TO  2000  0413 

940  NTI-NTIM  0414 

C  ENERGY  EQUATION  BLOCK  600  0419 

600  IFCNTI-3)  601.601.2000  0416 

601  00  617  K-I.LZ  0417 

602  L-K  0418 

603  N>I10*K  0419 

613  OEIK J«CE(K)-ERCK) J/OT  0420 

614  PACK)»(PR(K)*P(K) )/2. 0  0421 

619  RESOUE(K)«OE(K J*tPA(K)*Q(K))*CV(K)-VR(K) )/DT  0422 

629  1 ♦CDIVFA(K)*OI VFRtK) )/2. 0  0423 

617  CONTINUE  0424 

C  TEMPERATURE  ITERATION  OF  ENERGY  EQUATION  0423 

700  IFCLZR-4)  703. 703.701  0426 

701  CALL  COEFF  0427 

702  GO  TO  829  0428 

C  NO  ITERATION  OF  RAOIATION  0429 

703  00  704  K-1.L2  0430 

704  OTM(K)>-RESOUECK)/C(OET(K)/On*(OPT(K)/C2.0«OT))»CVCK)-VR(K)»  0431 

709  IFCNHC-NLP)  906.706.906  0432 

706  NLP-NLP*S0  0433 

PRINT  707.NMC. TIME.OT.LZ  0434 

707  FORMAT (23H  PROGRESS  REPORT  NMC-I4.  9X.9HTIME-1PE12.3.9X. I 1MTIME  0439 

707  1  STEP-1PE12.3. 10X.3HNORADI4///J  0436 

708  GO  TO  906  0437 

0438 

C  RADIATIVE  ITERATION  0439 

829  CONTINUE  0440 

830  IFCNMC'-NLP)  987.831.907  0441 

831  NLP-NLP«30  0442 

PRINT  832. NMC. TIME.OT.LZ  0443 

832  FORMATC23H  PROGRESS  REPORT  NMC-I4.  5X.9HTIME- IPE12. 3. 9X. ! 1HT IME  0444 

832  I  STEP- 1 PC 12, 3. I OX.8HRAOMYOROI4//7)  0445 

C  0446 

C  COEFFICIENTS  NOV  KNOWN-SOLUTION  FOR  DTRCK)  0447 

987  LZJ-LZRM  0448 

00988  K-LZJ.LZ  0449 

988  0TM(KJ--RE80UE(K)/((0ETCK J/0T)*(0PTCK)/(2.  0»OT) )#( VCK)-VR(K) ))  0450 

900  0TM(LZRJ«CENCLZR1-EN(LZR-1 ))/(CNCLZR)-CN(LZR-l ))  0491 

902  0TM(LZR-1)«(ENCLZR-1)-CN(LZR-!)*0TM(LZR»  0492 

00  909  J-3.LZR  0493 

K-LZJ-J  0494 

909  OTMC  K ) -ENC  K ) -0N( K ) *0TH(K*2  J -CN( K ) *OTHC  K* I )  0499 

906  CONTINUE  0496 

C  STABILITY  CHECK  0497 

907  00  930  K-I.LZ  0498 

908  IFCOTM(K) )  909.930.910  0499 
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•M  |F(A9SF(OTNCK»-0.9«T<K))  930.930.919  0460 

•10  ]FCT(K)-2.0C-Q9)  •I3.9ll.9lt  0461 

9t  1  IF(AMF(OTH(K))-0.9tT(K)J  930.930.919  0462 

912  IF{A99FCDTHCK))-9.0«TCK))  930.930.919  0463 

919  KI2- -920  0464 

919  KI3-K  0469 

920  CALL  OIAGNS  0466 

921  KNT-KRTM  0467 

922  IF(K*T~3)  923.933.933  0468 

923  00  927  L-t.LZ  0469 

U(L)-tfCL.3)  0470 

T(L)-VCL.4)  0471 

R(L>-tf(L.9)  0472 

V(L)-0CL.6>  0473 

PCD-VCL.7)  0474 

O(Ll-VCL.O)  0479 

ECU-VCL.9)  0476 

R2CL)-R(L)*«2  0477 

927  CONTINUE  0478 

929  »*1 TE  OUTPUT  TAPE  6.929.NMC.KRT.K  0479 

POINT  929.NNC.KKT.K  0480 

929  F0RNAT(4I9)  0481 

NT  1-0  0482 

GO  TO  74  0483 

930  CONTINUE  04B4 

C  HOOIFY  TEMPERATURE  0489 

933  00  P34  K-I.LZ  0486 

•34  T(KI-KK)-OTMCK)  0487 

939  00  TO  3000  0488 

930  ENO  0489 

•  FORTRAN  0490 

CF19WZ  0491 

SUOROUTINE  SWA8Z  0492 

C  STANOARO  DIMENSION  ANO  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  0493 

OCM-0. 0  0494 

0499 

00  129  K-I.LZ  0496 

00  139  N-I.NSZ  0497 

T9(K)-T9(K)/| 1606.9  0498 

ETA(K)-I.293E-03*V(K)  0499 

ALPHA-9.  0«fXPF(-T|HE/1.0E-03«(ETACK}ft*2))  0900 

KTA-((6.0E-16*V(K))«*0.9)*(TS(K)»»0.  I)  0901 

300  ZKK* I l-EKPFf-1 ,9«CRCK)-RCK-I ))  /((ETACK)«*l.9)/C(TSCK)*»AlPhA)  0902 
300  2-9ETA)  -0.2«(ETACK)*«1.9I)/CTS(K)«*2.73)  0903 

300  3-0.023«CETACK)»*I.O)*(TSCK)»»Q.25)M.OE-07#(ETACK)-#2.0)/  0904 

300  4((TS(K)*»(-9. 033  *4. 0E-I4-VCK))))  0509 

ZKK.  I WICK.  1  )«0. 99999999  0906 

ZKK.21-ZKK.  I )  0907 

WFP-CETA(K)*«1.9)/(CTSCK)ttALPHA}«9ETA)  0908 

t-0.2»(ETA(K)*«1.91)/(TS(K)*«2.73)  0909 

2-0. 023*CETACK)»-I.8)»CTS(K3«»0.29  )  0910 
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3*l.0C-07t(ETACK)»>2.C)*(TfU)«*3.0(i) 

HNFF«9.3E-06»C£TAtK)#*2.0)#CTiCK)*»3.3) 

IF(TSCK)-IO.O)  301.296.299 
290  IFCHMFF-MHFP)  299.301.301 
299  HHFP-HHFF 

301  OTAUCK.  I  )■!  .S«(R(K)-RCK-1))/HHFP 

302  A(K.N)*EXPF(  -OTAUCK.  N) ) 

312  BCCK.N)>S.67E-03*CTCK)**4) 

TSCK)»TSCK)*I 1609.5 
135  CONTINUE 
126  CONTINUE 

C  SOURCE  FUNCTION  INTERPOLATION 
DO  201  K*1 .LZ 

00  202  N-l.NSZ 

311  BBCK.N)*CCCCCRCK+1  )-RCX))»T  £K)*M)*£  CRtK)-RCK-l  )  )»T  CK*1  )*«4) )/ 
311  l(R(KM)-RCK-nn)«3.67E-G3 

BB(K.2)-88CK. I) 

506  SCK. N)»CBCCK. N) -BCCK* 1 . N) J/CPTAUCK.N) +0TAUCK+1  .N) 1 

507  WCK.NJ-1 . 0-ACK.N)-ACK.N)#OTAUCK,N) 

508  IF(«f(K.N)-1.0E-04)  509.202.202 

509  ¥CK.N)-0.3*COTAUCK.N)**2) 

202  CONTINUE 

201  CONTINUE 

C  SET  OPTICAL  INDICES 
KN»Q 

501  KO-O 

502  KN-0 

503  TAUCLZ.1)*0TAUCLZ. 1) 

511  00  522  J-l.LZtll 

512  K-LZ-J 

513  TAU(K. I )-TAUCK+l . 1 ) ♦OTAUCK.  I ) 

514  IF( TAUCK. 1 J-5. 0E-06)  522.515.315 

513  KN-KNM 

316  1FCKN-1)  318.517.318 
517  LZR-KO 

318  IFCTAUtK. 1J-.44)  322.519.519 

319  KD-KOO 

320  IF(KO-l)  622.323.622 
323  FBR-RCK) 

622  IF(TAU(K. 1). 1.0)  322.623.623 

623  KH>KH»I 

624  IFCKN-1)  322.623.522 
623  NCP-K 

322  CONTINUE 

323  IFCLZR-LZ*! )  330.330.329 

329  LZR-LZ-1 

330  CONTINUE 

IF(KO)  321.321.324 

321  F8R-0.0 


0311 

0312 

0313 

0314 

0313 

0316 

0517 

0318 

0319 

0320 

0321 

0522 

0523 

0324 

0325 

0326 

0527 

0528 

0529 

0330 

0531 

0532 

0533 

0334 

0535 

0536 

0537 

0338 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0349 

0530 

0551 

0552 

0353 

0354 

0553 

0336 

0337 

0338 

0339 

0360 

0361 
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NCP*0  0562 

524  CONTINUE  0563 

C  SET  CUTOFF  WAVELENGTH  CWLCK)  0564 

CWHAX-0. 0  0565 

KCWMAX-0  0566 

CWLCHCP. I  3-0.  0  0567 

NCV-MCP  0566 

TRCMCP)>TCMCP)  0569 

0570 

540  00  565  K>l.LZ  0571 

541  IFCTOO-TON2)  546.542.542  0572 

0573 

C  OPACITY  DUE  TO  ATONIC  SPECIES  0574 

542  CWLCK. 1)»  700. 0*EXPFC-0.36*CTCK)- 11606. 51/11606. 5  )  0575 

B544  DTMCKJ-212121212121  0576 

1FCCWLCK. 1 J-275. 01  545.560.560  0577 

545  CWL(K. I )*275. 0  0578 

GO  TO  560  0579 

546  IFCTCK)-T002)  551. 547. 547  0580 

0581 

C  OPACITY  DUE  TO  N2  MOLECULE  0582 

B  547  DTMCK) >454545454545  0583 

TCN2>5. 0E-07*1 . 293E-03*VCK)  0584 

549  CWLCK. l)>1140.0*CCCRCK)-RCK-m/CVtK)*l.293E-03))>*0.m  058S 

1 •! 1 . 0-EXPF  C -TIME/TCN2) )  0586 

IFCCWLCK. 13—1 000. 0)  550.560.560  0587 

550  CWLCK. 1 1-1000.0  0588 

60  TO  560  0589 

0590 

C  OPACITY  DUE  TO  02  MOLECULE  0591 

551  TC-4250. 0-271. 0*LOGF(1. 2931-03*  VCK))  0592 

TC02-3. 0E-07*1 . 293£-03*VCK)  0593 

B  552  OTMCK) >676767676767  0594 

553  IF(TCK)-TC  J554 . 554 . 556  0595 

554  CWL(K.  1 )■ 1500.  0*TSCX)*C  0. 163*0. 0745»L0GFC0RCK)*RMOZCK )/\. 293E-03) )  0596 

554  I  »C  1 . 0-EXPFC -T INE/TC02) )  0597 

555  60  TO  557  0598 

556  TSB-TSOn*( .  0647*LOGFCR(K)-R(K-m-0. 25-.  1  09»LOGFC  1 . 293E-03*VCK ) )  )  0599 

CWLCK. I )*3500. 0*TS8-C2000. 0*TS8)*EXPF(-T!ME/TC02)  0600 

557  IFCCWLCK. 13-1500.0)  558.560.560  C60I 

558  CWLCK. 11*1500.0  0602 

560  1FCK-NCP)  565.565.561  0603 

561  1FCCWLCK. D-CWMAX)  565.565.563  0604 

563  CWMAX*CWLCK» 1 )  0605 

564  KCWNAX-K  0606 

565  CONTINUE  0607 

566  NCW-KCWNAX  0608 

0609 

IFCLZR-NCW)  603.603.604  0610 

603  LZR*NCW*l  0611 

C  CALCULATE  ZO  VALUES  0612 
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604  Z0(l.l)»ZI(l.l>  0613 

KD»0  0614 

609  00  670  L-2.LZ  0615 

TRCL)»TCU  0616 

IFCT(L)-8.0E+04)  607.666.668  0617 

607  KO-KOM  0618 

IFCKD>1)  608.608.609  06IS 

608  HS-L-t  0620 

609  IF(OTAU(L. D-1.0)  610.668.668  0621 

C  SELECT  TRCL)«  TEMPERATURE  OF  RADIATION  TRAVERSING  ZONE  L  0622 

610  L1N-L-1  0623 

611  TAUSUM-0.0  0624 

615  00  630  NN-I.LIM  0625 

616  M-L-NN  0626 

617  TAUSUM»TAUSUH*OTAU(M. 1)  0627 

620  1FC  TAUSUM-0.7  )  630.627.627  0628 

627  TRCD«T(H)  0629 

628  IFCM-2)  630.630.638  0630 

630  CONTINUE  0631 

]F( T(L)-2S00. 0)  631.632.632  0632 

631  TRtL)*TRCL-l J  0633 

GO  TO  637  0634 

632  EPTSUH-O. 0  0635 

EPSUM«0. 0  0636 

00  635  K-3.LIH  0637 

EPSUN*EPSUM»OTAU(K. 1 J  0638 

EPTSUM-EPTSUH*T(K1»0TAU(K. 1 1  0639 

I Ft  T(K)-2500. 0)  636.636.635  0640 

635  CONTINUE  0641 

636  TRtLI-EPTSUH/EPSUN  0642 

637  M-2  0643 

638  IZ*N*1  0644 

639  00  646  I*1Z.L  0645 

640  IFCTR(L)»CWLCl.l)-2.0E+08)  641.641.644  0646 

641  ZI C 1 .23*  EXPFCC-3.41E-08*CWL( 1. 1  )tTR(  L  )*2. 5E-25»( CCVLC l . 1 >*TRCL  0647 

641  21 )*«3) )»EXPF( -3. 07E+13/C  CCtfLt 1 . 1 )*TR(  L  ))»•!. 8)))  0648 

642  GO  TO  646  0649 

644  Zl C I.2)=7.61E*22/(CCWLC I . 1 )*TR(  L  )D**3)  0650 

646  CONTINUE  0651 

ZHAX*Zl(H+1.2)  0652 

Z0(L.1)"ZI(MM.2)  0653 

647  IF(L-h-l)  668.663.650  0654 

C  CORRECTION  FOR  INTERMEDIATE  ZONES  0655 

650  IZ*M*2  0656 

651  CWLTST«CVL(M*1. 1)  0657 

652  00  660  NZ-IZ.L  0658 

653  IFtCWLCNZ. D-CVLTST)  654.654.657  0659 

654  IF(NZ-L)  660.655.668  0660 

655  ZO(L.1)»I.O  0661 

656  GO  TO  660  0662 

657  Z0(L.n*ZICNZ.2VZMAX  0663 
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S3*  CVLTSTiCVLCNZ. 1 )  0664 

631  ZMAWKNZ.n  0663 

660  CONTINUE  0666 

663  |F(ZeCL.n>Z!CL.m  670.668.666  0667 

666  ZO(L* I )*ZI CL. I )  0666 

670  CONTINUE  0669 

671  00  676  K*1.LZ  0670 

673  IFCOTMICK.  I )-! . 0E-04)  673.673.673  0671 

673  ACK.  D-OTAUCK.  1}  0672 

674  60  TO  676  0673 

673  A(K. 1 }■! . 0-A(K. I )  0674 

676  CONTINUE  0673 

00  699  K»1.LZ  0676 

IFCSCK. I )-l .69E+38)  767.767.677  0677 

767  HZCK)*0B(R. 1 )»ACKM . 1 )  0678 

OZCK)*2.0»S(K. 1)»V(K*1.1)  0679 

HPCK)«BCCKM  •  1  )»A(K+l >  1 )  0660 

IF(HZ(K)-OZ(K)-HP(K)«O.Ol)  677.677.699  0681 

677  S(K.  1  )“0.  0  0682 

678  09(N.  l)«BC(KM.l)  0683 

679  0BCK.2)»BCCK. I)  0684 

699  CONTINUE  0685 

900  IFC9CC1. !)-BC(2. I))  913.916.916  0686 

913  89C 1 • 2)»BC( 1.1)  0687 

916  CONTINUE  0688 

ENS-ZKNCV.3)  0689 

179  NETURN  0690 

ENO  0691 

0692 

•  FORTRAN  0693 

CF1RJST  0694 

SUBROUTINE  REJUST  0695 

C  STANOARO  DIMENSION  ANO  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  0696 

T002-71 00. 0*EXPF{ ( 0. 43429»L0GFCRH0ZC99)/1 . 293E-03) )/5. 3)  0697 

TON2-ISOOO. 0*E XPF( ( 0. 43429*L0GFCRH0ZC99)/1 . 293E-03) 1/4.8)  0698 

RETURN  0699 

ENO  0700 

•  FORTRAN  0701 

CF1RZNE  0702 

SUBROUTINE  REZONE  0703 

C  STANOARO  01 ME NS ION  ANO  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  0704 

0705 

1  M*LZP2  0706 

Z€TA«(T(M-1 )*T(M))/CE(M-I )*E(M))  0707 

C  ROUTINE  TO  COMBINE  ZONES  M  ANO  M-l  0708 

FKE"  CZNAS(N-2)«HU£M-2)»»2)*ZMASCM-l)*C(UCM-l)**2)+CUCH-2)*«2)  0709 

2)*ZMASfM)»CCU(H-l)»*2)*CU(H)tt2))*ZMASCM*l>*(UCM)*#2)>  0710 

FMV»CZMAS(M-2)*U(M-2)*ZMASCM-1 J»tUCH-l )*UCM-2))*ZMASCM)»CUCM-1 )  0711 

2*UCH) )*ZNAS(N*1 )»UCM))  0712 

FKA»ZNASCM-2)*ZNASCM-I)^ZNAS(H)  0713 

FR8*ZNAStM-l  )*ZNAS(M)*ZMASCM*I )  0714 
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FKB-FKBSFKA  0715 

FKE-FKE/FKA  0716 

FNV>FHV/FKA  0717 

FS*-(FKE*FKB)*(FKBM.0)-FKe»(FHV»»2)  0718 

IF(FSR)  7700.7701.7701  0719 

7700  U(H-2)«UtN-2)  0720 

U(N-1)»U(H)  0721 

G6  TO  7733  0722 

7701  FSRMFSR»»O.3)/FK0  0723 

UPLUS»CFHV*FSR)/(FKBM.0>  0724 

UHINS»(FHV-FSR)/(FKB+1.0)  0725 

IFtUCM-2)-UOin  7722.7711.7711  0726 

7711  U«H-2)'OPLUS  0727 

U(«-n»UMINS  0728 

60  TO  7733  0729 

7722  U(H-2)«UMINS  0730 

U(H-1)«UPLUS  0731 

7733  CONTINUE  0732 

2  ECH-l )«(ZHAS(H-1 )*ECH-1 )*ZMASCH)*ECM))/(ZHASCN-1  WMAStMJJ  0733 

3  TCH-1 )*(E(H-l)  ¥ZE  ')  0734 

4  ZHAS(N-n>ZNAS(N-l)«Z^Sti4)  0735 

5  01 VFA(M- 1 J*(R2(H)/ZHASCH-1 )  )»(FOStM)-F IS(H) )  0736 

5  l“(R2CN-2)/ZNASCH-l J )*CF0StN-2)-F|SCN-2) )  0737 

7  R(H-1)«RCH)  0738 

8  RZ(H-1)»RZ(«)  0739 

9  R2(H-1)*R2CH)  0740 

10  ORCH-n»OR(H-l)+ORCM)  0741 

11  RRCH-1 )»RRCH)  0742 

13  TRCM-1 )»TR(N)  0743 

14  V(N-1 )«(RCN-1 )«»3-R(N-2)*»3)/C3. 0»ZHASCH-1 ) )  0744 

15  P(H-I )*CPtM-l )+P(N))/2. 0  0745 

16  GCN-l )*(Q(H-I )>OCN) J/2. 0  0746 

OTMtN-1 )*0. 0  0747 

0748 

C  SHIFT  IN  EXTERIOR  ZONES  0749 

20  00  50  K*H.99  0750 

21  VCK)»VCK*1)  0751 

22  T(K)*T(K*1 )  0752 

23  RHOZCK)*RHQZtKM 3  0753 

24  U(K)>U(K«1)  0754 

25  PCK)«PCK*1)  0755 

26  R(K)*R(K*1 )  0756 

27  R2(KJ»R2CK*1)  0757 

28  RZ(KJ*RZ(K*1 )  0758 

29  ORCKl*OR(K*l )  0759 

30  QCK)»QCKM)  0760 

31  £CK)-E(K+1)  0761 

32  OIVFA(K)>OIVFA(K+l]  0762 

33  URCKl-URCK*!)  0763 

34  ZNAS(K)«ZHA$CK*1)  0764 

35  RR(K)»RR(K*1 )  0765 
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OTHCK)«OTM(KM)  0766 

50  TR(K)-TRCKM)  0767 

0766 

C  AOOITION  OF  HEW  ZONE  100  0769 

51  RC100)>RC99)*0R<9R)  0770 

52  R2C I 00)»R( I 007»»2  0771 

53  RZ(100)>R(!00)  0772 

54  RHOZUO01-RHOZC9R)  0773 

55  RR( 1 00) *  1 . 0  0774 

56  OR( 100) *08(99)  0775 

57  ZMASC100)*(RH0Z(100)/3.0)»(CRZtl00)»«3)-CRZ(99)«O))  0776 

SR  U( 1001-0.0  0777 

SR  T( !Q0)*T(99)  0778 

60  V( 100)*V(99)  0779 

62  Q( 1 00)*0. 0  0780 

0781 

T ( 1 01 )*T( 100)  0782 

RETURN  0783 

END  0784 

•  FORTRAN  0785 

SUBROUTINE  SPLIT  0786 

C  STANDARD  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  0787 

M*100-NZ2  0788 

DO  30  J«1 »M  0789 

K«101-«f  0790 

R(N)sRCK-l)  0791 

OR(K)*OR(K-l )  0792 

RRCK)-RRCK~I )  0793 

RHOZCK)-RHOZ(K-t)  0794 

RZ(K)-RZCN-l)  0795 

R2CN J"R2CK-1 )  0796 

UCK)*U(K-1 1  0797 

RR(K)-RRCK-l)  0798 

TRCK)*TR(K-1)  0799 

V(K)-VCK-t)  0800 

P(K)»PCN-1 )  0801 

ZMAS(K)*ZMASCK-1)  080? 

O(K)-QCK-l)  0803 

T(K)*T(K-1 )  0804 

E(K)-ECK-t)  0805 

0IVFACN)>0IVFACM-1)  0806 

URCK3-URCK~1)  0807 

30  CONTINUE  0808 

C  ADD  ZONE  JUST  OUTSIDE  K-KZ2  0809 

ZNASCKZ2)-ZMASCKZ2)/2.0  0810 

ZMAS(KZ2H)-ZMASCKZ2)  0811 

VCKZ2*I )*V(KZ2)  0812 

RM0ZCKZ2+1 )“RMOZtKZ2)  0813 

RC*Z2)-C<RCKZ2M )»»3)-(3. 0«ZMASCKZ2*I )•  VCKZ2+I )))»»( 1 . 0/3. 0)  0814 

R2(KZ2)«CCRZCKZ2+l)t»3)-C3.0tZMAS(KZ2«I)/RHOZCKZ2+m)»*(1.0/3.0)  0815 

RRCKZ2)*R(KZ2)/RZ(NZ2)  0816 
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0R(KZ2+t)>R(KZ2M)-R(KZ2)  0817 

ORCKZ2)-RCKZ2)-RCKZ2~n  0818 

R2(KZ2)>R(KZ2)**2  0819 

U(KZ2)-( ((UCKZ2-1 )»»2)*tU(KZ2M )**2))/2.  0)»#0.5  0820 

TRtKZ2*l)-TR(KZ2)  0821 

PtKZ2*l)»P(KZ2)  0822 

QCKZ2+1 1-QCKZ2)  0823 

T(KZ2*1 )*0.9*T(KZ2)  0824 

T(KZ2)» I . 1*TCKZ2)  0825 

E(KZ2+1)>0.BS»ECKZ2)  0826 

E(KZ2)*1 . 1S*E(KZ2)  0827 

OIVFA(KZ2M)«DiVFA(KZ2)  0828 

UR(KZ21>0.S*(IJR(KZ2-1  )HIRCKZ2*1 )  1  0829 

RETURN  0830 

END  0831 

•  FORTRAN  0832 

CFICGSPO  C6S  PRINT  OUT  PACKAGE  FIRE  I  0833 

SUBROUTINE  CGSPO  0834 

C  STANOARO  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  0835 

45  FORMAT! 1  HI //39H  AT  COMPLETION  OF  MASTER  CYCLE  NUMBER  I4.25X.I5.  0836 

45  240X. 3HSE-0PF 1 0. 3//6H  TIME- 1PE 1 0. 3. 21X. 6HPOWER-1PE1 0. 3. 2X. 5HWATTS.  0837 

45  313X.I0HTIME  STEP-IPEI 0.3.20X. 14HPASSES  ENG  EQ  14//  0838 

45  43H  K.2X.6HRA0IUS.SX.8HPART  VEL.2X. 4HPRES.6X. 3HQ/P. 3X.  3HTEV.  4X. 3HR  0839 

45  SH0.7X.3HE/G.7X.4HFOUT.SX.SHFI/F0.2X.4H0IVF.SX.4HTEMP.4X.5HGAMMA.  0840 

45  6X.4HPART.X.  IHC. 2X. 3HTAU. 5X. 4HOTAU//C 14. IPEI0.3. IP2E 1 0. 2. 0P2F6. 2.  0841 

45  7IP3E1  0, 2.  0PF6. 2. 1P2E1 0.2. 0PF5. 2. 0PF6. 2. 1  At . 0PF7. 2. 1 Al . IPE9. 2) )  0842 

46  FORMAT C 1H  /8H  T  PART- 1 PE  12; 4. 9H  FRACT  .5X.6H0THY0-IPEI2.4.8H  SEC  0843 

46  IS  .5X.6HPOX03-1PE12.4.8H  WATTS  .  5X.5HTEFF-0PF6, 0.8H  DEG  K  ,5X.  0844 

46  24HLZR-I4/0H  TYIELO-1PE12.4  9H  ERGS  .SX.6H0TRA0-1PE12.4.8H  SECS  0845 

46  3  .SX.6HPOW34-1PE12.4.8H  W.kTTS  .5X.5HTCOL-OPF6. 0.8H  DEG  K  ,SX.  0846 

46  44HNCW- I 4/8H  IN  ENG-1PE12.4.9H  ERGS  .5X.6HDTMIN-1PE12.4.8H  SECS  0847 
46  5  .SX.6HPOW4S-1PE12.4.BH  WATTS  . 5X.5HWLMX-0PF6. 0.8H  ANG  .SX.  0848 

46  64HOD1-I4/8H  KN  ENG- 1PE 12. 4. 9H  ERGS  .5X.6H0TLST-1PE12.4.8H  SECS  0849 
46  7  .5X.6HPOW57-1PE12.4.8H  WATTS  .5X.5HTY41-0PF7.2.  7HKT  ,5X.  0850 

46  8.4HEMS-0PF3.4)  0851 

36  FORMA T(8H  TOT  ES-IPE12.4.9H  ERGS  5X.6HF8RA0-1PE12.4.8H  CM  .  0852 
36  25X.6MPOW71«|PE12.4.8H  WATTS  .5X.5HTY71-0PF7.2.  7HKT  ,5X.  0853 

36  34HNSZ-I4/8H  E  AM8T-1PE12.4.9H  ERGS  5X.6HSHRA0-IPE12.4.8H  CM  0854 

36  4  .5X.6HPOW47-IPE12.4.8M  WATTS  . 5X. 5HTV47-0PF7. 2.  7HKT  .5X.  0855 

36  56H01589- 12)  0856 

47  FORMATt 1M1//.  0857 

47  43H  K. 2X.6HRA0IUS.5X.8HPART  VEL. 2X. 4HPRES. 6X. 3HG/P.  3X. 3HTEV. 4X. 3HR  0858 

47  5H0.7X.3HE/G.7X.4HF0UT.5X.3HFI/F0.2X.4H0IVF.5X.4HTEMP.4X.SHGAMMA.  0859 

47  6X.4HPART.X. 1HC.2X.3HTAU.5X.4HOTAU//C 14. IPEI0.3. 1P2E10.2. 0P2F6.2.  0860 

47  7IP3E1 0. 2. 0PF6. 2. 1P2EI 0. 2. 0PF5. 2. 0PF6. 2. I Al • 0PF7, 2. 1 Al . 1PE9. 2) )  0861 

YIELO-EOUAL  0862 

DO  1000  K-4.LZ  0863 

|F(T(K-1 )-0.6*T(K))  1002.1002.1000  0864 

1002  K72-0  086: 

CALL  D1AGNS 

loan  continue  w} 
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RSHQCK-O. 0 


SAVE1-0T 

OT-CN(LZ) 

STX-P(LZ) 

POWER- TFLUX*I..0E- 07 

TCOL-tTFLUX/(  EMS  *12.36*3.67E-03*(FBR**2)))**0.23 

TEFF-(TFLUX/(12.36*3.67E-03*(FBR**2)))**0.23 

CALL  PHOT 06 

C  ESTIMATE  OF  OBSERVED  SPECTRAL  DISTRIBUTION 
IF(FBR)  1039.1039.1061 


1039  P47-0.37*POWER 

Q47-Q47*P47*(TIME-TIMES)/4. 186E*12 

041*0.0 

P03-0. 0 

P34*0. 0 

P43*0. 0 

P37-0.0 

P71*0.0 

071 -0.0 

1060  60  TO  1600 

1061  SAVET-TCMCP) 

1062  T(MCP)-TCOL 

1064  1 F C  T(MCP)*CWLM  -2.0E  +  08)  1065.1063.1068 

1063  CVLM-CVLCNCV. 1 ) 

1”'3  FLM  •  EXPFt t -3. 41E-08*CWLM  •  T(MCP)*2.5E-23*CCCWLM  *  T(MCP))**3) 

10»3  1)»EXPFC-3.07EM3/C(CVLH  •  T(MCP) )**1 . 8) ) ) 

1067  60  TO  1164 

1068  FLM  »7.61E*22/( CCWLM  *T(MtP))*#3) 

1164  I F (  T(MCP)*3000. 0-2. 0E+08)  1165.1163.1168 

1165  F3  *  EXPFC ( -3. 4 1 £-08*3000. 0*  T(MCP)*2.3E-25*((3000. 0*  T(MCP))*»3) 
1165  1)*EXPF( -3.  07E* 13/(0000.0*  T(MCP))**1.8))) 

1167  ra  TO  1264 

1168  F3  *7.61E*22/((3000. 0*T(MCP) )**3) 

1264  I F (  T(MCP)*4000. 0-2. 0E*08)  1263.1263.1268 

F4  »  EXPF((-3.41E-08*4000.0*  T(MCP)*2.3E-25*((4000. 0*  T(MCP))**3) 
12L'“  )*EXPFC -3.  Q7E+13/C (4000.  0*  T(MCP))**1.8))) 

1267  30  TO  1364 

126R  4  -7.61E*22/C(4000.0*TCMCP))**3) 

1364  IF(  TCMCP)*3000. 0-2. QE+08)  1363.1363.1368 

1365  F3  *  EXPF((-3.41E-08*3000. 0*  T(MCP)*2.5E-25*(  (5000.  0*  T(MCP))**3) 

1363  IV  ;XPF(-3.07EM3/(  (3000.0*  TCMCP) )**1 .8) )) 

1367  GL  TO  1464 

1368  rr  -7.61E*22/C(5000.0*T(MCP))**3) 

1464  »»  l  T(MCP)*7000. 0-2. OE*08)  1463.1463.1468 

1465  F7  •  EXPF(C-3.41E-08*7000.0*  T(MCP)*2.5E-25*( (7000.  0*  T(MCP))**3) 
1463  l)*CXPF(-3.07EM3/((7000.0*  T(MCP))**1.8))) 

1467  00  TO  1364 

1468  F7  -7.61E*22/( (7000. 0*T(MCP) )**3) 

1364  IF(  TCMCP)* 10000. 0-2. 0E*O8)  1363.1365.1368 

1365  FI-  EXPF( (-3. 4 IE -08* 10000.0#  T(MCP)*2.3E-23*( ( 1 0000.  0*  T(MCP))»*3) 
1363  1 )»EXPF( -3. 07EM3/( ( 1 0000. 0*  T(MCP) )••! . 8) ) ) 
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1567  60  TO  1580  0919 

1568  Ft  -?.6lE*22/mOOOO.O*TCHCPn*»3)  0920 

1580  CONTINUE  0921 

TCNCPJ-SAVET  0'122 

1581  1FCCWLM-3000. 0)  1583.1583.1582  0J23 

1582  F3-FLH  0924 

1583  IF(CWLH-4000.0)  1585.1585.1584  0925 

1584  F4-FLH  0926 

1585  IFtCWLH-5000.0)  1587.1587.1586  0927 

1586  F5-FLM  0920 

1587  IFtCWLM-7000.0)  1589.1589.1588  0929 

1588  F7-FLH  0930 

1589  IFtCWLH-l 0000.0)  1591.1591.1590  0931 

1590  Fl-FLH  0932 

1591  CONTINUE  0933 

P03«POWER*CFLN-F3)/FLH  0934 

P34«POWER*(F3-F4)/FLM  0935 

P45«P0WER*CF4-F5)/FLH  0936 

P57 -POWER* (F5-F7) /FLU  0937 

P71 -POWER* (F7-F 1 )/FLM  0938 

P47-POWER*(F4-F7)/FLN  0939 

Q71 -Q71 *P71 •( T INE-TIMES)/4. I86E+12  0940 

Q47-Q47-*P47*( T IME-T 1MES1/4. 186E02  0941 

Q41-Q47«071  0942 

0943 

1600  ENd)*4.  l09*(R(l)**3)*(6(t)/V(l)  )  0944 

BNd)-ENd)  0945 

CN( 1 )>3. 14159* (U( 1 )**2)*ZMAS( 1 )  0946 

ON( 1 )-CN( 1 )  0947 

OPPd)-BNd)*ONd )  0948 

00  490  K-2.LZ  0949 

ENCK1-4. l89*CCRCK)**3)-(RCK-l)**3))*tECR)/VCK))  0950 

CNOO-3. 14159*CUCK)**2HJCK-1 )**2)*ZMAS(«)  0951 

BN(K)*8N(K-1 )*EN(K)  0952 

ON(K)"ONCK--1 )*CN(K)  0953 

B  THETAtK) -2 12121212121  0954 

!FCUlKi-STx)  490.490.488  0955 

488  STX-Q(K)  0956 

J3-K-3  0957 

489  RSHOCK-R(K)  0958 

490  OPP(tO-8NOO»ON(K)  0959 

EANB-4. I89*(RCLZ)**3)*EC99)/V(99)  0960 

ESYSN-0PP(LZ)-EAN8  0961 

E TOTAL -ESYSH/4. 186E+19  0962 

PARTT-FLEX/YIELO  0963 

491  IFCNMC)  493.492.493  0964 

492  YIELO-ESYSH  0965 

EOUAL-YIELO  0966 

493  CONTINUE  0967 

WRITE  OUTPUT  TAPE22.49S.NR.NHC.TIME.EANB.NCW.MCP.0PP(NCW).0PPCHCP)  0968 

1 • TR(NCW). TR(NCP). (K.EN(K).BN(K).CNCK).DN(K). DPP(K). ACK. I ). ZO(K. 1 ) •  0969 
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2ZI  CK» 1 )»  TR(K}.K«l*LZ) 

495  rOUHATtlMI. 13H  ENERGY  CHECK. 1  OX.  4HRUN-I4. 5X.4HNHCM4. 5X.  5HT  IME>IPE 

499  2I0.3.9X.BHE  AHB>1P£1 0. 3//5H  NCW>I4.9X.4HNCP«I4.9X.9H0PP(NCW)-|PEI2 
499  3.4. 9X.  9HOPP(HCP)>lPE12.4.9X.8MTRCNCW]>lPE10.3.5X.8HTRCHCP)i>lPEI0 
499  4.3//9H  ZONE .  3X .  2HOE  • 1  OX. 4HSUME.6X. 3H0KE. 7X. SHSUMKE . 9X. 9HSUHT0TALE. 

499  9I1X. IHA. IIX.2HZ0. 10X.2HZI. I0X.2HTR//(I5. IP9E12.4.3X. IP4EI2.4)) 

9494  THE  T A (I ) >646464849464 

9  THE  T  A ( 2 ) >232323232323 

00  29  K-l.LZ 
HZ(K)>OTAUCK. 1 1/1.5 
ONH(K)>OTAU(K» I )/(R(KJ-RCK-l ) ) 

FZCK)>4. 28  E-OB*(E(K)*P(K)*V(K) ) 

DZCK)>TAU(K» 11/1.9 
OPCK)>QCK)/P(K) 

FN(K1>T(K1/I 1606.9 
HPCK1>P0SCK1*1 . 0E-07 
HPP(K)«ABSFCFIS(K)/FOS(K)) 

GH(K1-1.0«(P(K1»V(K]/E(K11 
UR(K1>I . 0/V(Kl 
|F(PARTCK1-4.01  29.28.28 

B28  0TH(K1-313131313131 

29  CONTINUE 

SHVEL-Ul J31«( 1 . 0*GHC J3) 1/2. 0 
P$HK«(2.0/(GH(J3)*1.0))»RHOZtLZ)»tSHVEL**2) 

ESMK»0.3*(  C2.  0#SHVEL/C  1 .  O^GHt  J31 1 1»21 
TRSHK * T ( J3 1 *ESHK/E ( J3 1 

E  T  OE  ■  ( 9 . 67E  -  05  *  C  T  RSHK  *  •  4 1 A  RHOZ  <  L  Z 1  •  SH VE  L 1 1  ♦  E  C  L  Z ) 
TTOE-ETOE*mZ)/ECLZl 

POWSK«12.56*<R£J3*2)>*2)*9.67E-05*CTRSHK**4]*FLM 

WRITE  OUTPUT  TAPE  6.496.NR.NHC. TiME.SHVEL.PSHK. TRSHK, TTOE 

PUNCH  496.  NR.NMC.T1HE.SHVEL.PSHK.TRSMK.TTOE 

496  FORHAT(214. 1P3E12.41 

80  IFCL.Z-401  30.30.8] 

81  WRITE  OUTPUT  TAPE  NTAPE. 49. NHC.LZ. ETOTAL, T I HE. POWER. OT. NT  I , 

81  1 CK.  R(K1.U(K1 .P( Kl.OPCKl. FNCK1. UR(K1 .EtKl . HP(K1 • HPPtK ). 01 VFAtK ) . T(K 

81  21. GM(K).PART(K1.THETACK1.DZ(K1.0THCK1.HZCK).K> 1.401 

82  WRITE  OUTPUT  TAPE  NTAPE. 47. 

02  1 (K. RCK1»U(K1.P(K1.0P(K 1.FHIK1 . UR(K1.ECK1,HP(K1. HPPCKl.OI VFAtK 1 . TCK 

82  21.0H(K1.PART(K1.THETA(K1.0ZCK1.DTN(K1.HZ(K1.K*4I.LZ1 

83  GO  TO  89 

30  WRITE  OUTPUT  TAPE  NTAPE. 49. NMC. LZ. ETOTAL. T JHE, POWER. OT. NT | . 

30  I (K.RCK1. UCK 1.PCK1 .0P(K1»FH(K 1 . URCK1 .ECK 1 .HPCK1.HPPCK1 . Dl VFACK1 . T(K 

30  2).QNCK1.PART(K1.TH6TACK].0Z(K1.0THCK1.HZCK].K>1,LZ1 
89  WRITE  OUTPUT  TAPE  NTAPE. 46.PARTT.RJ.P03. TEFF.LZR. FLEX. RX.P34. TCOL. 

B9  2NCW. 8NC  CZ 1 . OTH 1 N. P49. CWL ( NCW. 1 1 . NCP. 0N( LZ 1 . SAVE  1 . P57 , 04 1 . EMS 

WRITE  OUTPUT  TAPE  NTAPE. 36.0PPtLZl,FBR.P71 .071. NSZ.EAM8.RSH0CK.P47 
1.047. NR 
WCI.91-RSH0CK 
DT. SAVE  I 

IFCNHC-11  403.400.400 
400  IFf NNC-1 01  411.411.403 
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403  CONTINUE  1021 

C  USER  TAPE  PRINT  OUT  1022 

WRITE  OUTPUT  TAPE  32. 300.NR.NMC. T IME.LZ.P(99). T(99).RH0Zt99). POWER  1023 
2.P47.FeR.CK.R(K).UlK).PtK),'URCK).TCK).F0S(K).FIS(K).0NH(K).QtK),  1024 

3FZCK).ECK).HPPP(K>. K-l.LZ)  1023 

300  FORHATC1H1.2I4.IPEI2.3. 13. 1PSE12. 3/C  14. IP12E i 0. 3) 1  1026 

WRITE  OUTPUT  TAPE  42.437.NR.NNC. T I HE. T( 1). TCOL. TEFF.E TOTAL. PART T.  1027 
lBN(LZ).ON(LZ).EStSM.EAMB. FLEX. Q41. <347. Q71.P03.P34.P43.P37.P7l.P47.  1028 

2FBR.RSHOCK  1029 

437  FORHATUH  . 21 4. 1P1 0E1 1 . 3/1PI2E1 1.4///)  1030 

410  IF(NMC)  300.420.411  1031 

411  IF( T INE-6. 82E-03)  300.412.412  1032 

412  NSI X-NSI X*  1  1033 

413  IFCNSIX-31  300.420.300  1034 

420  NSIX-0  1033 

421  CALL  SIXOPO  1036 

300  RETURN  1037 

ENO  1038 

•  FORTRAN  1 039 

CFIStXO  1040 

SUBROUTINE  SIXOPO  1041 

C  STANOARO  01 MENS  I ON  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  1042 

FLAG* 1 . OE+31  1043 

S0UN0S-S0RTFll.4*Pt99)/RH0Z(99)l  I C44 

DO  10  K-l.LZ  1043 

BN(K)=P(K)/P199)  1046 

CN(K)-V(99)/VCK)  1047 

0N(K)-T(K)/T(99)  1048 

EN(K)-U(K)/SOUNOS  1049 

C  AVERAGE  ZONE  RAQ1US  IN  FEET  1050 

10  OP(K)»CRCK)*RCK-l 11/60.96  1051 

WRITE  TAPE  31. NR. TIME. LZ. (OP(K) . BNCK).CN(K) • DNCK) . EN(K) » GMCK ) .  1032 

1K-l.LZl.FLAG  1053 

WRITE  OUTPUT  TAPE  41 . 30.NR, T IME.LZ. COP(K). 8N(K). CNCK). DN(K) . ENCK).  1034 
IGM(K). K-l.LZ)  1035 

50  FORMAT!  1H1/H.X.27H  SIXOPLOT  DIAGNOSTICS  TIME-IPE1Q.3.5X.3HLZ-I4  1056 

30  2///(lP6E16.4))  1057 

KZ6-KZ6* I  1 038 

20  RETURN  1039 

ENO  1060 

•  FORTRAN  1061 

CFIPHOTOG  PHOTOGRAPHIC  BRIGHTNESS  ROUTINE  1062 

SUBROUTINE  PHOTQG  1063 

C  STANOARO  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  1064 

IF(NMC)  32.30.32  1065 

30  J TAPE -23  1066 

31  GO  TO  40  1067 

32  IFCNMC-  3)  33.33.30  1068 

33  JTAPE-6  1069 

40  CONTINUE  1070 

C  SOURCE  FUNCTION  EMCK)  A NO  ABSORPTION  COEFF  BNCK)  1071 
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DO  S  K-I.LZ 

16.3«C(  1.79X-  -•¥  «))••!.  ID/CU TCK1/1 1606. 51«»e.O)*2.6E-12«VOO) 
2«0.t80*((i.?r  E-03»V(K))*#|.9l  )/([T(K)/ll606.3)»»C3.Sn 
4*».  0QE-03»(  t  ! .  29X-03»V(K)  >«*2. 0)*t(T(K)/l  1606. 3) ••0.39) 
S*I.OK-09*m.29X-03»V(K))*»2.0)>C(T(K)/ll606.3)»»4.00))) 

#•(  I .  O-EXPFC  3. 2E«  M/TCK) ) ) 

TEA-3. 936E*04/TCK) 

IF( TEA-80. 0)  1.1.2 

2  EH(K)-0.0 

3  00  TO  3 

1  EHtK)-l.0E*03/tEXPFt3.936£«-04/T{K))-1.0) 

3  CONTINUE 

C  OPTICAL  DEPTHS 

00  200  K-l.LZ 

OHOO-O.O 

OZ(K)>0.0 

0P(K)-CR(K)*R(K-1 ))/2.  0 
LS-K 

00  100  L-LS.LZ 
300  IFtL-K)  320.310.320 

310  0ZCL)-SQRTF(R(L)**2-0P(K)*«2) 

311  OH(U-OZ(L) 

313  60  TO  100 

320  0ZCL)»SQRTF(RtU**2-0PCK)**2)-0NCL-l ) 

324  0HCL)-DM(L-1  )*OZtL) 

100  HZU)-EXPF(-BNCL)»DZIL)/VCU) 

C  BRIGHTNESS  INTEGRATION 
HP(LZ)>0.0 
LS-LZ-Kn 
00  7  J-I.LS 
M-LZ-J 

7  MP(M)-HP(MM 3#HZCM*1 )♦! 1 . 0-HZCH*l))tEHCH*l J 

LS-K 

00  6  J-LS.LZ 

6  HPtJJ-HPCJ-l )#HZ( J)*C I . O-HZC J))»EM( J) 

HPPCK)-HP(LZ) 

IFCK-3)  133. ISO. 133 

150  MN0RH-HPPC3) 

IF(NNC)  133.131.133 
131  SCALE «MPPt3)*10.0 
133  CONTINUE 

199  HPPPCKJ-HPPCK J/SCALE 

200  MPPCK)*HPPCK)/HNORM 

210  MRITE  OUTPUT  TAPE  JTAPE. 201 .NMC. TINE. (K.OP(K).HPPP[K). HPPCKJ.K-l . 
210  1LZ) 

201  FORMAT ( |H| .6HPH0T06. 14.1 0X.3HT1HE-IPEI 0. 3//3H  Z0NE.3X.6HNEAN  R.4X. 
201  23HA8S  B.SX.3HREL  9//(  16.  IPXI 0. 3)) 

200  RETURN 
ENO 
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•  FORTRAN  1 1 23 

CFIOIAG  1124 

SUBROUTINE  OIAGNS  1123 

C  STANDARD  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  1126 

33  FORMAT! IHI.4HNMC* 14. 3X.4HNT 1*14. 3X.4HKZ2* 13. 3X.3HZQNE* 14. 5X.4HRUN*  1127 

214/)  1128 

M-KZ3  1129 

1FIKZ2  )  3.10.13  1130 

3  WRITE  OUTPUT  TAPE  6.6. KZ2  1131 

6  FORMAT! 1H1.2IH01 AG  CALLED  FROM  MAINI3)  1132 

GO  TO  20  1133 

10  WRITE  OUTPUT  TAPE  6.1I.KZ2  1134 

11  FORMAT! INI. 22HOIAG  CALLED  FROM  CGSP0I5)  1135 

GO  TO  20  1136 

15  WRITE  OUTPUT  TAPE  6. 16.KZ2  1137 

16  FORMAT! 1H1.22H01 AG  CALLEO  FROM  HY0R0I3)  1138 

20  WRITE  OUTPUT  TAPE  6. 21 .NMC.NT I . LZ. LZR. MCP. MCL . T IME. DT.CS. CR.BR. RS.  1139 

20  1!K.V!K).VR!M).E!K).ERCK).RESDUE(K).PA!K).DIVFA!K).01VFR!K).K*I.LZ)  1140 

21  FORMAT! IH  . 4HNMC-I4. 2X. 4HNT I • 14. 2X. 3HLZ* 1 4. 2X. 4HLZR* 14. 2X. 4HMCP* 14  1141 

21  1 . 2X. 4HMCL’1 1 4/6H  T 1ME-1PE 12. 4. 2X. 3HOT* IPE 1 2. 4. 2X. 3HCS«0PF3. 2. 2X.  1142 

21  23HCR*0PF3. 2. 2X. 3H8R*0PF3. 2. 2X<  3HRS*0PF3. 2//3H  K.6X. 1MV. 13X. 2HVR.  1143 

21  312X. 1HE. 13X.2HER. 12X.6HRESOUE.8X.2HPA. 12X.3H01 VFA.9X.3MOI VFR//  1144 

21  4! 14. 1P8E14.7))  1143 

22  WRITE  OUTPUT  TAPE  6. 23. NMC.NT1.DTM1N. YIELD. SCALE. TFLUX.FBR. TIMEW.  1146 

22  I!K.T!K).0TMIK).0ET1K).0PTCK1.BN!K).CN!K).0N!K).EN!1!).K-1.LZ)  1147 

23  FORMAT! 1H1 , 4HNMC* 14. 2X. 4HNTI * !4. 2X. 6NDTMIN=lPE 12. 4. 2X.6HY1ELD® IPE 1  1148 

23  12.4.2X.6HSCALE-1PE12.4.2X/7H  TFUiX*IP£12.4.2X.4HFBR*lPE12.4.2X.6HT  1149 

23  2 1 MEW* IPE 1 2. 4//3H  K.6X. 1HT. 13X.3HOTM. I 1X.3H0ET. 11X.3H0PT.  1 IX.2HBN.  1150 

23  312X.2HCN.  1 2X. 2HON. 12X. 2HEN//! 14. 1P8E14. 7) )  1151 

WRITE  OUTPUT  TAPE  6.35.NMC.NTI .KZ2.M.NR  1152 

24  WRITE  OUTPUT  TAPE  6.23. !K.FOS!X).FIS!K).BBCK. I ).BC!K. 1 ).R!K).  1153 

24  1ZOIK. 1).A!K. D.Z11K. 1 ).K*1,LZ)  1154 

23  FORMAT! IH  /3M  K.6X. 2MFO. 12X. 2HF I . 1 2X. 2HBB. I 2X. 2HBC. 12X. I HR. 13X.  1155 

23  12HZ0. 12X. 1HA. 13X.2HZ1/! 14. 1”8E14.7))  1156 

WRITE  OUTPUT  TAPE  6.33.NMC.NTI.XZ2.M.NR  1157 

26  WRITE  OUTPUT  TAPE  6.27. !K.S(K. 1 ).W!K. 1 ),DTAU!K. 1).R2!K).  ZMAS1IO.  1158 

26  ITAU!K. 1).CWL!K. 1 ).TR!K).K-].LZ)  1159 

27  FORMAT! IH  /3H  K.6X. 1HS. 13X. 1HW. 1 3X. 4HOTAU. I  OX. 2HR2. I2X. 4HZMAS. I  OX  1160 

27  I • 3HTAU. 1 1 X«  3MCWL . 1 1 X. 2MTR/! 14. 1P8E14. 7) )  1161 

WRITE  OUTPUT  TAPE  6.33.NMC.NTI.KZ2.M.NR  1162 

28  WRITE  OUTPUT  TAPE  6.29. !K.0MM!X).DM!K).DZCK).0P!K).0PP!K).0!K).  1163 

28  1F0!K.2).F1!K.2).K«1.LZ)  1164 

29  FORMAT! IH  /3H  K.6X. 3HOMM. 1 IX. 2HOM. 12X. 2HOZ. 12X. 2H0P.  12X. 3HOPP, 1 IX  1165 

29  1.1HQ, 13X.3HF0TJZ.9X.3HFITJZ/! 14. IP8EI4.7))  1166 

WRITE  OUTPUT  TAPE  6.33.NMC.NTI.KZ2.M.NR  1167 

30  WRITE  OUTPUT  TAPE  6.31. !K.FMM!X).FM!K).FZ!K).HZIK).FP!K).HP!K).  1168 

30  IHPP!N).HPPP!K).K*1.LZ)  1169 

31  FORMAT! IH  /3H  K.6X.3HFMM. 1IX.2HFM. I2X.2HFZ.  I2X.2HHZ. 12X.2HFP. 12X.  1170 

31  I2HHP, I2X.3HHPP, I IX. 4HHPPP/! 14, IP8EI4.7))  1171 

WRITE  OUTPUT  TAPE  6.33.NMC.NTI.KZ2.M.NR  1172 

32  WRITE  OUTPUT  TAPE  6.33.  TQN2.  T002.  TIMES. 047. 071  .FUX.FLOX. FLEX.  1173 
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32  lRM.RX.RJ.IK.FO(K.3).OTROO.RZtK).P(K).OECK).RROO.RHOZ(K).  U(K).  1174 

32  2KM.100)  1 175 

33  FORNATtiH  . 2X. 5HT0N2«1PE12. 4. 2X.5HT002-1PE12. 4. 2X.6HT IMES*1PE 12. 4.  1176 

33  12X.4MQ47»1PE12.4.2X.4H071>1P£12.4.2X/6H  FL1X*1PE12.4.2X.5HFL0X*1PE  1177 

33  212.4.2X,3MFLEX>1PE12.4.2X.3HRM>1PE12.4.2X.3HRX»1PE12.4.2X.3HRJ»1PE  1 178 

33  3I2.4//3H  K.6X.3HOTH. llX.3HOTR.UX.2HRZ.t2X.lHP.13X.2HOE.12X.2HRR.  1179 

33  4I2X.4MRH0Z. 10X.2HU  /( 14. JP8E14.7))  1180 

RETURN  1181 

END  1182 

•  FORTRAN  I  1 83 

CFtFLUX  1184 

SUBROUTINE  FLUXS  1185 

C  STANDARD  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  1186 

300  LZN1-LZ-1  1187 

00330  N* 1 . NSZ  1188 

C  BOUNDARY  CONDITION  NO  INWARD  FLUX  AT  OUTER  BOUNDARY  1189 

FI(LZ.N)>0.0  1190 

310  00312  J-1.LZM1  1191 

511  K-LZ-J  1192 

512  FlCK.N)«FICKM.N)*ZI(KM.N)*8B(K,nt(ACKM.N))-2.0»S(K.N)*W(K*  1193 

312  11. N)  1194 

520  FOCl.N3=FICl.N)*ZIU.Nl+BB(1.2)t(A(l.N))+2.0*SCl.N)*WCl.N)  I  195 

322  00523  K«2.LZ  1196 

525  FOtK.N)*FOlK-l ,N3*(R2(K-1 3/R2(M))*ZOCK.N)  1197 

52S  2*B8CM. 2)*( AtK.N) )*2. 0»StK.N)»WCK.N)  1198 

523  3*tl.0-CR2CK-n/R21Kn)*FI(K.N)»ZICK.N)  1199 

330  CONTINUE  1200 

549  00  355  K«t.LZ  1201 

FIStK 1*0. 0  1202 

FOS(K1*0. 0  1203 

00  550  N*1 .NSZ  1204 

FlSCK)»FlStK)*Fl(K.N)  1205 

330  FOS(K)*FOS(K1*FO(K.N)  1206 

551  1FCK-11  552.532.334  1207 

332  01 >0.0  1208 

553  GO  TO  555  1209 

534  01«1.0  1210 

535  DlVFACK)*tR2OO/ZMAS(K))*tF0SCK)-FISCK)l  1211 

333  1 -DJ  #CR2CK-1 l/ZMASCK) )*(F0SIK- 1 )-F 1SCK-1 ))  1212 

341  FL0X*12.36*R2CLZ-3)*F0StLZ-3)  1213 

390  RETURN  1214 

591  END  1215 

1216 

•  FORTRAN  1217 

CF1STE  1218 

SUBROUTINE  STATE  1219 

C  ST AND ART  DIMENSION  ANO  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM  1220 

1221 

C  STEFAN  *2.S!4E~09  TO  INCLUOE  RAO I AT  I ON  ENERGY  ANO  PRESSURE  1222 

C  STEPAN  >0.00  TO  OELETE  RADIATION  ENERGY  ANO  PRESSURE  1223 

STEFAN>0. 0  1224 
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too  DO  126  K-l.LZ  1225 

lOt  ETACK)»1 . 0/C  1 . 293E-Q3*  VCK))  1226 

102  TSCK)-TSCK)*1.0E-04  1227 

103  XSCK)«1 . QE+04*TSCK)/C  ETACK)*«0. 086)  1228 

104  GNUCK)«UJGFCXSCK)/2000.0)/LOGFC 1250.0)  1229 

103  IF(XSCK)~20Q0. 0)  106.106. 108  1230 

106  PARTCK)«1.0  1231 

107  GO  TO  112  1232 

108  IFCXSCK)-2.3E»06)  109.111.111  1233 

109  PARTCK)*!.  0+15. 4*C  GNUCK)*#3)#C4. 0-3. 0#  GNUCK) )  1234 

110  GO  TO  112  1233 

111  PART(K)«16.4  1236 

112  PCK)«  C2.881KTSCK)/  VCK))»  PARTCK)+STEFAN*CTSCK)**4) )» 1 .  OE  +  1 0  1237 

113  Y«0. 0784/(2. 881*TSCK)t  PART(K) )  1238 

114  UZ«1.0+C27.0*Y+3.  0)/CS. 0»Y+l. 0)+861. 0»(1. 0-Y) tY/( 3000. 0«(Yt«2)+1.0  1239 

114  1 )+(2356. 0«C  1 . 0-Y)»Y)/(9. 0E*04»(Y**21+1.0)+(  41 000. 0t( 1 . 0-Y )*Y )/  1240 

114  2C12.0E  +  06»CY«»2)  +  1.0)«-C2.13E+05*C1.0-Y)*Y)/C1.5E+18*CY»M)  +  1.0)  1241 

115  UT«C24.0*(Y**2)+4.0E-10)/C4.*CY«»2)+l.E-10)-C0.0970*CY**2)*Ct.0-Y)  1242 

115  1 )/(2. OE-06+Y**3)+(4. 18E-05*CY«*3)»C 1 . 0-Y) )/( 1 . 14E-1 1 +Vt*6)  1243 

116  UC*UZ-0. 09»(UZ-UT)#LOGF(  ETACK))  1244 

117  E(K)«  C0.03920tCUC-1.0)/Y+3.0«STEFAN*CTSCK)«*4)»  VCK) )*1 . OEM 0  1245 

126  TSCK)=TSCK)»1.0E+04  1246 

TSC2)  =  TSC2)M.0E -04  1247 

TSC 1)=TS(1)*1.0E-04  1248 

PC  1 )*C  0.538EM  0»TS( 1)*M.5)/V(1)  1249 

EC  1 )=2. 53E+1 0*( ( (VC  l)*»Q.25)M0.0)/(3.  0»V(  1)**0.5M0.0))*  1250 

1C CVC1)**0.25K0.13)«CTSC1)»M.3+.  02722/VC  !)•*!. 5)  1251 

P(2)-36. 18«TSC2)M.0EM0*C920.0+TSC2)**2)/CVC2)*CTSC2)*«2M.08E*04  1252 

D)  1253 

E(2)  =  C (649. 0+TS(2)»«2)/C 1 00. O+TSC  2) ) )  1254 

1«CC82.7*TS£2)»1. 0EM0)/C 116. 0/C VC2)**0. 25)+TSC2)»( 1 . 0*0.  12/C V(2)*«  125S 

20.25))))  1256 

TSC 1 )*TS( 1 )«1 . 0E+04  1257 

TSC2)«TSC2)*l.0E+04  1258 

176  RETURN  1259 

177  ENO  1260 

•  FORTRAN  1261 

CF1HVOO  1262 

SUBROUTINE  HYDRO  1263 

C  STANDARD  01 HENS I ON  AND  COHHON  STATEMENTS  AS  IN  MAIN  PROGRAM  1264 

1265 

KHR*0  1266 

MRS* 1  1 267 

KZ4*0  1268 

C  TEST  FOR  IMPROPER  CONVERGENCE  1269 

DO  195  K-l.LZ  1270 

JFCDTM(K) )  192.195.191  1271 

191  IF(T(K)-2.0E+05)  188.188.189  1272 

188  IFCABSFCDTMCK) ) -4. 99«TCK) )  195.195.193  1273 

189  IFCABSFCDTMCK) )-0.80»T(K) )  193.195.193  1274 

192  IFCABSFCDTMCK) )-0.25tTCK))  195.195.193  1275 
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193  KZ2-193  1276 

RQX>RQX»0.2  >277 

RH-RQXH.3  1278 

CALL  DIAGNS  1279 

194  00  TO  190  1280 

I 93  CONTINUE  1281 

198  1FCRQX)  199.199.200  1282 

199  RQX'OTMIN  1283 

C  RICHTNYER  -  VON  NEUNANN  HYOROOYNAMIC  SCHEME  1284 

C  AO VANCE  VELOCITY  -  -  CHOOSE  TIME  STEP  1285 

200  00  207  K-S.LZ  1286 

201  tf(K.3)>UCK)  1287 

202  UR(K)>UCK)  J  288 

203  UCK)«  UOO-2.  0*(  (R20O  »OT)/CZMAS(K)*ZMAStK*l ) ) )*CP(KM )«-QCK*l )  1289 

204  1 -PCK)-Q(K) )  1290 

206  IF(U(K)-1.0E*11]  207.210.210  1291 

207  CONTINUE  1292 

208  U(LZ)*0.0  1293 

209  GO  TO  217  1294 

210  KZ2*21 0  1295 

CALL  OIAGNS  1296 

213  GO  TO  32  1297 

C  HYDRODYNAMIC  TIME  STEP  -  -  COURANT  CRITERION  1298 

217  RM*RQX*1 .3  1299 

218  IF CRM- 0. 070*TIME )  222.222.219  1300 

219  RH«0.070*T1ME  1301 

222  00  227  K«1.LZ  1302 

224  OTNCK)*DRCKl/tRS*SQRTFCPCK)/( VOO»CRHOZ(K)**21 ) ) )  1303 

OTHCK)*DTHCN  )•( (RZIK)/R(KJ)**2)  1304 

F0CK.3)«DTHCK)  1305 

223  IFCRM-OTHCKJ )  227.226.226  1306 

226  RM*OTHCK)  1307 

KZ4«K  1308 

227  CONTINUE  1309 

228  RJ*RM  1310 

1311 

C  RADIATION  LIMITEO  TIME  STEP  1312 

229  RX«RM  1313 

230  00  242  K«KRS.LZ  1314 

IF(K-l)  233.233.223  1315 

223  IF(RCK)-FBR)  231.231.233  1316 

231  AR-BR  1317 

232  GO  TO  234  1318 

233  AR>BR*2. 0  1319 

234  CONTINUE  1320 

233  OTR(K)*ABSF( AR»E(K)/DI VFA(K) )  1321 

238  |FCOTRCK)-OTMIN  J  242.242.239  1322 

239  IF(OTRCK)-RX)  240.240.242  1323 

240  RX«DTRCK)  1324 

241  KZ4»K  1325 

242  CONTINUE  1326 
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243  RH-RX  1 327 

244  IF(RH-2. 0#OT)  246.246.243  1328 

243  RH»2. 0»OT  1 329 

246  lF(RM-OTHIN)  247.248.248  1330 

247  RH«OTMIN  1331 

248  ROX«RM  1 332 

249  |F((TIME»RN)-T1HEV)  232.252.250  1333 

230  IFCNNC-  4)  232.232.251  -  1334 

231  RM«T IMEW-T IME  1335 

232  DO  233  L-I.LZM1  1336 

253  UACL)«CU(U/2.  0)*CUR(L)/2.  0)*CUCL  )*RM)/C 2.  0*QT  J-CURCL  )»RM)/C  2.  *OT  )  1337 

254  URCU«tU(L)/2.0)  +  lUR(L)/2.0)-(UCL)tRM)/C2.  0*DT  )*CURCL )*RM)/(  2.  «DT  )  1338 

255  U(L)»UA(L)  1339 

256  OT»RM  1340 

C  ADVANCE  RAOIUS  ALL  L  1341 

260  DO  263  L-l.LZ  1342 

V(L.3)*RCL)  1343 

261  R(L)*R(L )*OT*U(L)  1344 

262  RR(L)*R(L)/RZ(L)  1345 

263  R2(L)*R(L)t«2  1346 

DO  269  K-2.LZ  1347 

IF((R(K)-R(K-m-0.  15)  264.264.269  1348 

264  KHRxKMRM  1349 

IFCKHR-3)  265.265.270  1350 

265  KZ2-266  1351 

266  CALL  DIAGNS  1352 

DO  268  L-l.LZ  1353 

U(L )*N(L. 3)  1354 

R(L)«WCL.5)  1355 

268  CONTINUE  1356 

RQX*DT»0.2  1357 

GO  TO  200  1358 

269  CONTINUE  1359 

C  AO VANCE  SPECIFIC  VOLUME  1360 

270  V(l)x(CRtl)*»3)/TRZ(l)#»3))/RH0ZCl)  1361 

271  DO  277  K*2.LZ  1362 

273  V(K)*ll. O/RHOZCK) )•( C (RCK)/OR( l ) D**3)-l CRtK-l )/OR( 1))«*3))/  1363 

274  1 ( ( CRZCK )/OR( 1 ) )**3)-( (RZCK- 1 )/DR( 1 ) )»«3) )  1364 

273  !F(V(K}-1. 0E+20)  276.279.279  1365 

276  IFCV(K) )  279.279.277  1366 

277  CONTINUE  1367 

278  GO  TO  283  1368 

279  KZ2-279  1 369 

CALL  DIAGNS  1370 

282  GO  TO  52  1371 

C  ADVANCE  ARTIFICAL  VISCOSITY  1372 

283  IF(NMC-NQS)  284.284.286  1373 

284  VO«CS  1374 

285  GO  TO  287  1375 

286  VO»CR  1376 

287  DO  295  K»1.L2  1377 
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IFCV(K)-VRtK))  293.2942.2942 

1378 

293 

QCK3-CVO*(CZNASCK)/R<K)**2)*t2)/CVCK)*VR(K)))»CC(VCK)-VRCKJ)/OT>## 

1379 

123 

l 380 

294 

IFC0CK3-! .  OE+223  2941.296.298 

1381 

2941 

IF(  00  0  3  2942.299.299 

1382 

2942 

QOO-O. 0 

1383 

299 

CONTINUE 

1384 

299 

OCL23«0.0 

1389 

297 

RETURN 

1386 

299 

KZ2-29B 

1367 

CALL  OIAGNS 

1388 

92 

WRITE  OUTPUT  TAPE  6.43. T( 1J 

1389 

43 

FORMATCIH  . I5HEXIT  FROM  HVORO. 9X. 9HT( 1 3-1PE13.6) 

1390 

T( 13-0.000000 

1391 

1900 

GO  TO  297 

1392 

END 

1393 

1394 

• 

FORTRAN 

1395 

CF1COEF 

1396 

subroutine  coeff 

1397 

C 

STANOARO  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM 

1398 

700 

LZR-LZR 

1399 

C  SET  FLUX  DERIVATIVES  near  outer  boundary  of  radiative  region 

1400 

701 

FPCLZR3-0.0 

1401 

702 

MPCLZR3-0. 0 

1402 

703 

MPf*(LZR)  =  0.0 

1403 

704 

HPPPILZR3-0.  0 

1404 

709 

MPPtLZR-I 3-0.0 

1405 

j  706 

MPPPCLZR-1 3-0.0 

1406 

!  707 

MPPPCLZR-23-0.  0 

1407 

i 

DO  769  J-l.LZR 

1408 

C  SET  RIPPLE  ZONE  PARAMETERS 

1409 

DO  914  N-l.NSZ 

1410 

SAVE  1 -BBC J.NJ 

1411 

SAVE2-B8C J-l.N) 

1412 

SAVE3-SC J.N3 

1413 

SAVE4-SCJ-I.N3 

1414 

SAVES-OTAUC J.N3 

1415 

SAVE6-AC J.N3 

1416 

SAVE7-WC J.N3 

1417 

SAVE8-ZICJ.N3 

1418 

SAVE9-ZIC J-l »N3 

1419 

SAVEI 0-ZOCJ.N3 

1420 

SAVEI I-Z0CJM.N3 

1421 

SAVE 1 2-BCC J.N) 

1422 

SAVE14-TCJJ 

1423 

SAVE13-TSCJ3 

1424 

SAVEI 9-CWLCJ.  i 3 

1425 

SAVE  1 6-ZOC  J -2. N ) 

1426 

j 

SAVEI 7-B8CJ. 23 

1427 

SAVEIB-BBC J- 1 . 23 

1428 
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an  M(j.NW((((R(j»n~R(j»*TP('n«H)+ccRm-R(j-m*T  umihii/  i429 

311  KRCJ+l J-RtJ-l ))))*3.67E-03  1430 

BBC J-l .N)-CCC( CRC J)-R(J-I  ))*TCJ-l)»»4)+((R(J-l )-RCJ-2))*TPCJ)«#4) )  1431 

1/(R(J)~R( J-2) ) ) )*5.67E-05  1432 

BBC  J- 1 .2)«BBC J-l . 1 )  1433 

BBCJ.2)-B8CJ.l)  1434 

312  BCC  J.N)“5.67E-05*(  TPC  J)<**4)  1435 

TSC J)*TP( JJ/1 1G06.S  1436 

TCJJ-TPCJ)  1437 

ETA(J)>l.293E-03tVCJ)  1436 

ALPHA-9. 0*EXPFC~TIME/1.QC-03*CETACJ)**2))  1439 

BETA-C  C6.  0E-18»VCJ))**0.5)*CTSCJ)**0. 1)  1440 

300  ZICJ.1)«EXPFC-1.S*CRCJ)-RCJ-1))  /CCETACJ)**l.3)/CC  TSCJ)** ALPHA)  1441 

300  2+BETA)  *0. 2*CETA( J )** 1 . 91 )/( TS( J )*«2. 733  1442 

300  3+0. 023*tETAC J)»t| ,8)»CTSC J)*»0.23)*l . 0E-07*CETACJ)*»2.  01/  1443 

300  4C(TSCJ)*»C-3.0))+4.0£-14*VCJ))))  1444 

Z1CJ. D-ZICJ. 1 )*0. 99999998  1443 

Zl CJ<  2)-ZI C J. 1 )  1446 

HMFP-CETACJ)«*1.S)/CCTSCJ)»*ALPHA)+BETA)  1447 

l+0.2»CETACJ)«**1.91)/CTSCJ)-*2.73)  1448 

2+0. 023-CETAC J )•*! .8)»C  TSC J)**0. 25)  1449 

3+l.0E-07*CETACJ)»*2.Q)*CTSCJ)»*5.00)  1450 

HMFF*9.3E-06»CETACJ)**2. 0)*CTSCJ)*»3.5)  1431 

IFCTSm-10.0)  301.298.298  1432 

298  IFCHMFF-HMFP)  299.301.301  1453 

299  HMFP-HMFF  1434 

301  OTAUC J. 1)*I.5*CRCJ)-RCJ-1)  J/HMFP  1455 

302  AC J.N)*EXPFC -OTAUC J. N)  )  1456 

305  TSCJ)«TPCJ)  1457 

306  SC J.N)«CBCC J.N)-BCC J+ 1 .N) )/C0TAU( J.N)+OTAUC J+ 1  •  N) )  1458 

SCJ-I.N)-CBCCJ-1 • N)-BCCJ»N) )/C OTAUC J-l .NJ+OTAUC  J.N) )  1459 

507  WCJ.N)«l . 0-AC J.NJ-AC J.NJtOTAUC J.NJ  1460 

508  IFCVCJ.N)-1.0E-04)  309.314.314  1461 

509  WCJ.N)*0.5*COTAUCJ.N)**2)  1462 

314  CONTINUE  1463 

1464 

C  SET  CUTOFF  WAVELENGTHS  1465 

340  l«J  1466 

341  IFCTCD-TON2)  346.342.342  1467 

1468 

C  OPACITY  OU£  TO  ATOMIC  SPECIES  1469 

342  CWLCI.1)-  700. 0»£XPFC-0.36*CTm-1 1606.5)/!  1606.3)  1470 

IFCCWLCI.  D-273.0)  345.360.360  1471 

543  CWLCI.D-275.0  1472 

GO  TO  360  1473 

546  1FCTCD-T002)  351.547.547  1^74 

1475 

C  OPACITY  DUE  TO  N2  MOLECULE  1476 

547  TCN2«3.0E-07#1.293E-03tVCI)  1477 

CWLCI.  1  )»t 140.  OtCCCRC  I  )-RC  I -1 )  )/C  VC  I  )#1 .293E-03)  )»*0.  ID  1478 

l»CI.0-EXPFC-TIME/TCN2))  1479 
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|F(CMLU.11-1 000.0)  990.960.960  1480 

990  CVLCt. 11-1000.0  1481 

00  TO  960  1482 

1483 

C  OPACITY  DUE  TO  02  MOLECULE  1484 

991  TCa4290. 0-271. 0*L0GF(  1.293C-03*  V(I11  1485 

TC02-3. Of -07* 1.2936- 03*Vtl)  1486 

933  [Ft  T( I )-TC 1994.994. 996  1487 

394  CNL( 1 . 1 1-1900. 0*TSt I )*(0. 163+0. 0743*LOGFCDRt I )*RHOZC 1 1/1 .293E-031 )  1488 

334  1 •( 1 . 0-EXPFC -TINE/TC821 )  1489 

339  GO  TO  997  1490 

996  TS9-TSC I 1*( . 064?*LOGF(RC l)-Rt I -111-C  23-. 1 09*LOGF( 1 . 293E-03*VC 1)11  1491 

CHLt 1 . 11-3300. 0+TS8-C2000. 0*TS81*EXPF{ -T IHE/TC021  1 492 

997  IFCCWLM.  11-1500.01  998.960.360  1493 

998  CVL( 1. 1 1-1900.0  1494 

960  CONTINUE  1495 

1496 

C  CALCULATE  VALUES  1497 

ZOtl.tH  .(1.11  1498 

604  JSTR-J+2  1499 

KO-O  ISOO 

603  00  670  L-J.JSTR  1501 

TRCLl-T(L)  1502 

|F( TCL1-8. 0E  +  041  607.668.668  1503 

607  KO-KO-1  1504 

IFCKO-I)  608.608.609  1305 

608  NS-L-1  1506 

609  IFCOTAUCL.  11-1  **)  610.668.668  1507 

C  SELECT  TBf'  TF  3ATURE  OF  RAOIATION  TRAVERSING  ZONE  L  1508 

610  LIN-L".  1509 

611  TAUSUM-O. 0  1510 

619  DO  630  NN-l.UM  1511 

616  M-L-NN  1512 

617  TAUSl!M-TAUSUH»OT»<lf  H.  1 1  1513 

620  IF( TAUSUM-O. 71  627. 627  1514 

627  TR(Ll-TtMl  1515 

628  IFCM-21  630.630.638  1516 

630  CONTINUE  151? 

IFC TCL 1-2300. 01  631.632.632  I5t6 

631  TRCLl-TRCL-1 1  1519 

GO  TO  637  1520 

632  EPTSUM-0. 0  1521 

EPSON- 0. 0  1522 

00  639  I-3.LIM  1523 

EPTSUM«EPTSUM+T( I )*OTAU( (.11  1524 

EPSUN-EPSUH+OTAUC I . 1 1  1525 

IF(T( 1 1-2900. 0  )  636.636.633  1526 

639  CONTINUE  1527 

636  TRCL1-EPTSUN/EPSUH  1528 

637  N-2  1529 

638  1Z-MM  1530 
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639  00  646  CIZ.L  1331 

640  !F(UHL)*CW.(l.l)-2.0E»0e)  641.641.644  1332 

641  Z I  (  1.2)*  EXPFC(-3.41E-08*C¥Ul.n»TR(  L  )*2.5E-23*(  CCWL.C  I .  I  )*TRCL  1333 

641  2) )**3) )*EXPF( -3. 07E+I3A  CCVLt 1 • 1 )*TR(  L  ))••!. 8)))  1334 

642  60  TO  646  1333 

644  Zl(l.21»7.61E+22/((CVLU.n»TR(  L  ))»»3)  1336 

646  CONTINUE  1337 

ZMAX-ZKM+1.2)  1338 

ZO(L.  1 1*ZI(H*’1.2)  1339 

647  1FCL-H-1 J  668.663.630  340 

C  CORRECTION  FOR  IMTERNE01 ATE  ZONES  i341 

630  IZ»H»2  1342 

651  CW_TST-C*L(N*1. 1)  1543 

652  00  660  NZ*IZ.L  1314 

653  IF(CWL(NZ. D-CWLTST)  634.654.637  1345 

654  IF(NZ-L)  660.653.668  1546 

655  ZO(L.l)«t.O  4547 

636  GO  TO  660  1548 

637  ZO(L. 1 )*ZI CNZ.21/ZMAX  1549 

658  CWLTST-CXUNZ.  11  1550 

659  ZNAX-ZKNZ.2)  1551 

660  CONTINUE  1552 

663  IF(Z0(L.1)-ZKL.m  670.668.668  1553 

668  ZO(L.t)-ZKL.n  1554 

670  CONTINUE  1555 

671  IF(OTAU(J. D-1.0E-04)  672.674.674  1556 

672  At  J.  D-OTAUtJ.  1  )  1557 

673  GO  TO  675  1558 

674  AtJ.n-I.O-AU.I]  1559 

675  IFCSt J. 1 J-1.69E+38)  8675.8675.677  1560 

8673  IF((8B(J. I )*A( J* 1 . 1 3-2. 0»St J. 1 )*«( J* 1 . l))-BCt J*1 . 1)*A( J*1 .  1 ) »0. 0  1  )  1561 

8675  1  677.6fi0.680  1562 

677  SCJ.n-0.0  1563 

678  BBCJ.  D-BCCJM.  11  1564 

679  8B(J.2)*BC(J. I)  1565 

680  1F(S(J-1.1)-1.69E*38)  8680.8680.681  1566 

8680  iF((B8(j-i.n*A(j.n-2.o»scj-i.n«w(j.m-BC(j.n»A(j.n*o.on  1567 

8680  1  681.684.684  1568 

681  S(J-1.1)«0.0  1569 

682  88(J-1.  1J-BCCJ.  1)  1570 

683  08(J-1.2)«8C(J-1. 1)  1571 

684  IF( J-2)  900.900.916  1572 

900  IF(BC( I . I )-9C(2. 1 ) )  915.916.916  1373 

915  8B( 1 • 2)»BC( 1.1)  1374 

916  T( J )*SAVE14  1575 

CWUJ.  D-SAVE13  1576 

C  CALCULATE  TEMPORARY  FLUXS  1577 

831  JSTR«J>2  1378 

832  IFC JSTR-LZR)  834.834.633  1379 

833  JSTR«LZR  1380 

834  00  842  N-l.NSZ  1381 
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835  FIUJSTR*l.N)-Fl(JSTR*l.M)  1582 

836  00  830  L-l.JSTR  1583 

837  K«JSTR-L*I  1584 

838  F|T(K.N)»FIT(K*1.N)*  ZI(F+1.N>*0BCK. I >C  A(K*l .N) )-2. 0*  S(K.N)  1585 

038  2*  N(K+t.N}  ' 566 

839  F0T(1.N)»FIT(1.N)#  ZKl  .N)+BB(  1  -  ?)»l  A( 1 . N) 1*2.  0*  S(l.N)  1587 

839  2*  8(1. N)  1588 

840  00  841  K-2.JSTF  1589 

841  F0T(K.N)»F0T(K-!UfO»CR2CI\  1  J/R2CK))*  70(K.N)  1590 

841  2*88(8. 2)*(  A(*.N.<  1  0«  S(K.N)*  8(K.  N)  1591 

941  3*(1.0-(R2(K-1 )/R20:)l)#FI r<K.N)*  ZI(F.N)  -592 

842  CONTINUE  593 

C  SPECTRAL  SUMMATION  1594 

726  FOTJP2-0.0  1595 

727  FOTJPl «0. 0  1596 

728  FOTJZ-O. 0  1597 

729  FOTJMI «0. 0  1598 

730  FITJZ-0.0  1599 

731  FITJM1-0.0  1600 

732  F I TJM2*0. 0  1601 

733  FITJM3-0.Q  1602 

734  00  742  N«1.NSZ  1603 

735  F0TJP2-F0TJP2  ♦  F0TCJ+2.N}  .  1604 

736  FOTJPl-FOTJPl  ♦  FOT(JM.N)  1605 

737  FOTJZ-FOTJZ  ♦  FOT(J.N)  1606 

738  FOTJMI *F0TJM1  ♦  FOT(J-l.N)  .  1607 

739  FITJZ-FITJZ  *  FIT(J.N)  1608 

740  FITJM1-FITJMI  *  FIT(J-l.N)  1609 

741  F1TJM2-F1TJM2  ♦  FIHJ-J.NJ  1610 

742  FITJM3-FITJM3  ♦  FITCJ-3.N)  1611 

FO(J.2)>FOTJZ  1612 

FKJ.2J-FITJZ  1613 

C  CALCULATE  FLUX  DERIVATIVES  1614 

743  IF(J-LZRM)  744.745.746  1615 

744  FMM(J*2)"(F0TJP2  -FOS( J*2 J 3/( TP( J )-T( J ) )  1616 

745  FM(J*1)«(F0TJP1  -FOS( J*l))/( TP( J )-T( J»  1617 

746  FZ(J)«(FOTJZ-FOS(J))/CTP(J)-T(J)J  1618 

747  HZ(JJ»(FITJZ-FISCJn/(TP(Jl-TC  J))  1619 

748  IF(J-l)  755.755.749  1620 

749  FP(J-11«(F0TJM1  -FOSC J-l))/( TP( J3-TC J1 )  1621 

750  HP( J- 1 )»(F I TJH1 -F IS( J-l ) )/( TP( J )-T( J ) )  1622 

751  IF( J-2)  755.755.752  1623 

752  HPP( J-2)*(FITJM2-FIS(J-2) )/(TP(J)-T(J))  1624 

753  IF(J-3)  755.755.754  1625 

754  HPPP( J-3)*(F1 TJM3-F1S( J-3) )/(TP(J)-T(J))  1626 

C  RETURN  RIPPLE  ZONE  PARAMETERS  TO  NORMAL  VALUES  1627 

755  00  768  N-l.NSZ  1628 

B8(J.N)>SAVE1  1629 

88(J>I.N)»SAVE2  1630 

S(J.N)>SAVE3  1631 

S(J-1.N)>SAVE4  1632 
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OTAU(J.N) -SAVES  1633 

AC J.N1-SAVE6  1634 

VCJ.N1-SAVE7  I63S 

ZICJ.N1-SAVE8  1636 

ZICJ-I.N1-SAVE9  1637 

ZQ( J.Nl-SAVEt  0  1636 

ZOCJ-1.N1-SAVE11  1639 

8CCJ.N1-SAVE12  1640 

TSCJ1-SAVE13  1641 

Z0CJ-2.N1-SAVE16  1642 

BBCJ.21-SAVE17  1643 

B8CJ-1 .21*SAVE18  1644 

766  CONTINUE  1645 

769  CONTINUE  1646 

C  GENERALIZED  COEFFICIENT  ROUTINE  DEC  6. 1963  1647 

770  00  789  K-I.LZR  1646 

771  IF(K-I)  772.772.77S  1649 

772  OHNC 1 )-0. 0  I6S0 

01-0.0  1651 

773  OHC  11-0.0  1652 

774  GO  TO  780  1653 

775  01-1.0  1654 

IFCK-21  777.776.778  1655 

776  OHMC21-0.0  1656 

777  GO  TO  779  1657 

778  0MMCK1-C  0. 5-R2CK1/ZMASCK1 1-FHMCK1  1658 

778  1-01*C0.5-R2(K-1 1/ZHASCK] 1-FMCK-l 1  1659 

779  0MCK1-  C  0. 5-R2CK1/ZHASCK1 1-FMCK]  1660 

779  1-01-C  0.5-R2CK  ’MASCKl 1-CFZCK-l l-HZCK-1 1 1  1661 

780  0Z(K1*  (0.5-F  ZHASCK1 1-CFZCK1-HZCK1 1  1662 

780  1-01-C  0.5-R2CK  iMASCKl l-CFPCK-l 1-HPCK-l 1 1  1663 

780  2*C0ETCKl/0Tl*k  w.JT  (K1/C2.  -0T ll-CVCKl-VRCK) 1  1664 

781  OPCKl-  C  0. 5-R2CK1/ZMASCK1 1-CFPCK1-HPCK1 1  1665 

781  1 -01 -C  0.5-R2CK-1 1/ZMASCK1 1-C -HPPCK1 1  1666 

782  OPPCK1-C  0.5-R2CK1/ZMASCK1 1-t -HPPCK1 1  1667 

782  l-Ol-C Q.5-R2CK-1 l/ZMASCKll-C-HPPPCK-l 11  1668 

789  CONTINUE  1669 

790  OPPCLZR-i 1*0. 0  1670 

791  OPCLZRl-O.O  1671 

792  OPPCLZRl-O.O  1672 

C  BLOCK  800  SOLUTION  OF  MATRIX  1673 

800  CNC 1 1-OPC 1 l/OZC 1 1  1674 

801  ONC 1 1-OPPC I 1/OZC 1 1  1675 

802  ENC11--RES0UEC1 1/OZC 11  1676 

803  8N(2}-0ZC2)-0MC2)-CN(U  1677 

804  CNC21-C0RC21-0HC21-0NC I 11/BNC2)  1678 

803  0NC21-0PPC21/BNC21  1679 

806  EN(21--CR£SOU£(21*OMC21-EN( I 11/8NC21  1680 

807  00911  K-3.LZR  1681 

806  8NCK1-C0ZCK1-0MCK1-CNCK-1 1-DMMCK1 -ONCK-21 ♦ONNC K1 -CNC K-21 -CNC K-l 1 1  1682 

809  CHCK1-C0PCK1-0NCK1-0NCK-1 1*0HM(K1*CNCK-21*0NCK-1 1 1/BNCK1  1683 
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•10  ON(K)-OPP(K)/BNCK) 

•II  EN(K)--(RESOUE(K)*OMCK)«EN(K-l)-DMN(K)»CNCK-2)*EN(K-l)*DMM(K)*EN(K 
•II  l-2))/aNCK) 

•12  ON(LZR-!)-Q.O 

•t)  •N(LZR)-OM(LZR)-OMM(LZR)*CN(LZR-2) 

•14  CN(LZR)>CDZCLZR)-0MM(LZR)*0N(lZR-2))/BN(LZR) 

•19  ONCLZR)-0.0 

•It  EN(LZR)>-CRES0UE(LZR)+0MHCLZR)*ENCI.ZR-2)  )/0N(LZR) 

•l»  RETURN 

•20  ENO 

C  VERSION  C  ENTRY  ROUTINE 

STARTING  NOOEL  IS  RE AO  IN  FROM  DATA  CAROS  GENERATED 
•Y  THE  X-RAY  DEPOSIT  ROUTINE  ON  UNIVAC  1107 
•  FORTRAN 

SUBROUTINE  ENTRY 

C  STANOARO  DIMENSION  AND  COMMON  STATEMENTS  AS  IN  MAIN  PROGRAM 
2  OC1)>0.0 

TEE-3. 0E*04 

RE AO  INPUT  TAPE  9.  9277. RUN I 01 .RUNI02. TRCNNl ). TRCNN2). ENERGY. TIME. 
IFX.  (K.R(K).OR(K).  T(K).RH0Z(K).U(K).E(K).RUNIO1  .RUNI02.  K-l .100) 

9277  FORMAT (2A6. IPSE 13. 3/( 14. IP6E1 I . 3.2AS) ) 

LZ-tOO 

VO-CS 

RKT -ENERGY/ 4. 18E+19 

T002-7100. 0*EXPF(( O.43429*L0GF(RHOZ(99)/1. 293E-03) )/S. 3) 

T0K2- 19000. 0»EXPFC ( 0. 43429-LOGF ( RHOZ (991/1. 293E -03)1/4.8) 

1019  00  1033  K-1.100 
I02S  VCIO-l . O/RHOZCK) 

VR(K)-VCK) 

1027  L-K 

TSCM)-T(K) 

R2CL)-R(L)**2 

1029  RZCL)-R(L) 

1030  RR(L)-I . 0 
TR(K)-TCK) 

ZMAS(K)-(RHOZ(K)/3.0)*((RZ(L)*»3)-(RZ(L-1)*«31) 

OU-U(L)-UtL-l) 

Q(K)>-(VO/(2.0»V(K)))»0UtABSF(0U) 

Q( 1 1--CV0/C2. 0#V( 1 1 lltUC I )*ABSF(U( 11) 

IF(0(K1)  2233. 1 033. 1 033 

2233  000-0.0 

1033  CONTINUE 

ZMAS( 1 l-RHOZC I )«(R( I )*«3)/3. 0 

1034  WRITE  OUTPUT  TAPE  6. 1039. T0N2. T002.RN2.R02.WKT  . (K.R(K).RHQZ(K). 

1034  1V(K).T(K).UCK).Q(K).ZMASCK).0RCK).DPPCK).0TAU(K.I).TAUCK. ll.K-l. 
1100) 

1039  FORNATCIH  .IOHINPUT  DATA. 10X.SHTON2-0PF7. I.10X.SHTDO2-0PF6. 1.9X. 
1039  I 4MRN2- 1 PE9. 2. 9X. 4HR02- IPE9. 2. SX. 4HWKT-0PF7. 2//4H  K  ,2X.4HR(L) 

I  .  7X.7NRM0Z(K).4X.4HV(K1.7X.4HT(K).7X.4HU(L).7X.4H0(K).7X.7HZMAS 
S(N).4X.9H0R(K).7X.6HENG(M).9X.7H0TAU(K).4X.3HTAU//( 14. 1PI IEI 1.4)1 
TCI  01 )-T( 1 00) 

1000  return 
ENO 
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